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SEQ 1 


oREM & 
IDENTIFICATION 


PRODUCT CODE: AC=T227A-MC 

PRODUCT NAME: CZUACAO NI EXERCISER DIAGNOSTIC 
PRODUCT DATE: 6=APR-83 

MAINTAINER: MERRIMACK DIAGNOSTIC ENGINEERING 
AUTHOR: GARY MCCOY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT iS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM IS MEANT TO PROVIDE 
FIELD SERVICE WITH A TOOL FOR DETERMININING THE CONNECTIVITY OF NODES 
ON THE NETWORK INTERCONNECT (NI). 


hes NIE PROGRAM WILL DETERMINE THE ABILITY OF NODES ON THE 


NI T 
OMMUNICATE WITH EACH OTHER AND Ay gg te | NODE INSTALLATION VERIFICATION 
AND PROBLEM ISOLATION. THE NIE USES THE LOW LEVEL MAINTENANCE FEATURES 


OF THE DEUNA TO PROVIDE TESTING WITHOUT INTERUPTING NORMAL OPERATION 


THE NI. THE VAX VERSION OF THE NIE CAN ALSO BE RUN CONNCURRENTLY ON 


OF 
ANOTHER NODE, WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES ely a (SUPERVISOR). THESE SERVICES Bed 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENV ghee ye 

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. roe A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF oe en OF 

THE RUNTIME * SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


IN ORDER TO RUN THE CZUAC NIE PROGRAM, THE FOLLOWING MINIMUM HARDWARE 
IS REQUIRED: 


A PDP=11 CPU 

MINUMUM OF 24K WORDS OF MEMORY 

A WORKING, LINE OR REAL-TIME CLOCK 
A CONSGLE TERMINAL 

ANY XXDP+ SUPPORTED LOAD MEDIA 
DEUNA=11 UNIBUS TO ETHERNET ADAPATER 


-3 RELATED DOCUMENTS AND STANDARDS 


~ DEUNA USER'S GUIDE EK=DEUNA~UG-001 

~ DEUNA TECHNICAL DESCRIPTION _EK=DEUNA-TD-001 

~ XXDP+ USER*S MANUAL (CHQUS?.SEQ ey ? IS THE REV. LEVEL OF 
THE MANUAL = ‘'C'’ IS THE CURRENT REV.) 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


THE GOAL OF THE NIE IS TO TEST THE COMMUNICATIONS LINK AND THEREFORE 
ASSUMS THAT THE CPU'S, CLOCKS, AND DEUNA'S AT EACH END OF THE LINK 
HAVE ALREADY BEEN TESTED. 


IF NO LINE OR REAL-TIME CLOCK IS FOUND, THE PROGRAM WILL CONTINUE 
7 eg F THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE DEVICE 


IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEUNA), 
BUT TO TEST THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED. 


— 
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THE PREREQUISITE DIAGNOSTICS ARE: 


SEQ 4 


= CZUAAAQ DEUNA REPAIR LEVEL DIAGNOSTIC 

= CZUABAO DEUNA FUNCTIONAL LEVEL DIAGNOSTIC 
ALSO AVAILABLE FOR TEST IS: 

= CXUACAO DEUNA DEC/X=-11 MODULE 


1.5 ASSUMPTIONS 


IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEUNA) HAS BEEN TESTED 
USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ a 
USER DOCUMENTATION PROTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 

pe — AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE nay eb 3 kp SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

XIT RETURN TO XXDP+ op gh (XXDP+ geile ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTI 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE cers FERS. so 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘‘START' 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SUITCHES. ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. “pate. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"’. 


SWITCH EFFECT 
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/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 


/PASS :DDDDD 0 640 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 


/EOP: DDDDD REPORT END OF Pass ieee o AFTER EVERY 
/UNITS:LIST 
I EXAMP /UNITS:0: 
USE UNITS 0,5, To 116 a) (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS:1=5/PASS: 1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL 1eB° 1) TESTS 1 THROUGH 5 WILL BE 
XECUT I D 1000 TIMES wR fy END OF 


SES A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE °'/TES:1=5°* INSTEAD OF *'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS © PASS __FLAGS | __EOP 


2.3 FLAGS 


FLAGS ARE USED TO SET UP oe aag Aplin PARAMETERS SUCH AS 

LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 

CLEARED UNTIL ty tithe SET USING THE FLAGS SWITCH. 

ARE ALSO CLEARED AFTER A START C : L 

FLAG SWITCH. ZFLAGS COMMAND MAY ALSO BE 
EXCEPTION > START AND ZF 


C 
NO_COMMAN FFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 


HOE HALT ON ERROR - CONTROL IS RETURNED TO 
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RUNTIME SERVICES COMMAND MODE 
LOOP ON ERROR 
INHIBIT ALL ERROR REPORTS 


ERRO ST_AND_UNIT) 
INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 
PRINT TEST fy AS TEST EXECUTES 


*BELL** ON 

UNATTEN DED MODE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

INHIBIT PROGRAM DROPPING OF UNITS 

EXECUTE AUTODROP CODE 

LOOP ON TEST 


EXECUTE EVALUATION (ON _— WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE nape FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) ?° 
YOU MUST ANSWER ‘'Y’’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN reece USING THE SETUP UTILITY (SEE 
D R'S MANUAL). WHEN YOU ANSWER THIS 
- THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF TS CIN YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


# UNITS (D) ? 1<CR> 


UNIT 0 

DEVICE CSR ADDRESS : (0) 164524 ?<CR> 
INTERRUPT VECTOR ADDRESS : ad ee ?<CR> 
INTERRUPT PRIORITY : (0) 5 ? 


WHEN YOU COMPLETE THE ABOVE SEQUENCE YOU WILL BE AT THE NIE> 
COMMAND LEVEL. 


NIE> (A) ? 
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2.5 NETWORK INTERRCONNECT EXERCISER COMMANDS 
THE “NIE>** COMMAND LEVEx FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE START TU THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE "NIE>** PROMPT I: PRINTED. 


YOU ONLY HAVE TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A 
COMMAND. THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. 


HELP OR ? PRINTS OUT A BRIEF DESCRIPTION OF NIE COMMANDS. 
SHOW NODES PRINTS OUT THE CONTENTS OF THE NODE TABLE. 


SHOW MESSAGE PRINTS OUT THE CURRENT MESSAGE PARAMETERS FOR SIZE, 
TYPE AND COPIES. 


SHOW COUNTERS PRINTS OUT THE CONTENTS OF THE HOST NODE DEUNA INTERNAL 
COUNTERS. 


NODE ADR/TYPE THE NODE COMMAND ALLOWS THE OPERATOR TO ENTER NODES be 
THE NODE TABLE. NODES ARE SPECIFIED USING THEIR 12 H 
DIGIT ETHERNET PHYSICAL ADDRESS AND CAN BE SPECIFIED. AS 
EITHER TARGET OR ASSIST (A DEFAULT OF TARGET IS ASSUMED). 


MESSAGE/TYPE=/SIZE=N/COPIES=M THE MESSAGE COMMAND ALLOWS 7 OPERATOR 
TO SELECT THE oop vl MESSAGE PARAMETERS “yf 4 ° 
PARAMETER CAN BE CHANGED WITH THE COMMAND. 


ANY OR ALL OF THE 
THE DEFAULT PARAMETERS ARE TYPE=ALPHA,SIZE=512,COPIES=1. 
ONE OF THE FOLLOWING MESSAGE TYPES: 


=~ !"4$%° oes att aaae antl :=?ABCDEFG ETC. 
== MESSAGE OF ALL ONES (11111111....) 
a ss PP Ny 
catasayay’*} 


CCITT 

OPERATOR SELECTED == OPERATOR CHOSEN PATTERN OF LESS THAN 
72_CHARACTERS USING 0-9, A=-Z AND SPACES. (NOT USED IN 
PATTERN TEST) 


SIZE THE SIZE OF THE MESSAGE BUFFER (DATA ONLY)MAY BE BETWEEN 
32 AND 1466 BYTES. 


COPIES THE NUMBER OF COPIES OF EACH MESSAGE SENT TO EACH NODE 
DURING A TEST MAY BE BETWEEN 1 AND 255. 

RUN TEST/PASS=NN_ CAUSES gti OF THE SPECIFIED TEST FOR NN NUMBER OF 
PASSES. A ALUE OF 1 IS ASSUME 


D 
ENTERED PRIOR TO RUNNING THE TEST USING THE NODE COMMAND. 
IN THE CASE OF THE LOOPPAIR TEST, NODE PAIRS ARE REQUIRED 


oe SEQ 8 
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DIRECT 


LOOPPAIR 


PATTERN 


ALL 


IDENTIFY ADR 


BUILD 


CLEAR NODE/ADR 


AND MUST BE SPECIFIED AS TARGET AND ASSIST NODES. THE 
CURRENTLY SELECTED VALUES FOR MESSAGE voree SIZE AND 
COPIES ARE USED BY EACH TEST. 


THERE ARE FOUR TEST TO CHOSE FROM: 


THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 


THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 
NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 


1) RECEIVE ASSIST == HOST => TARGET => ASSIST => HOST 
2) TRANSMIT ASSIST == HOST => ASSIST => TARGET => HOST 
3) FULL ASSIST == HOST => ASSIST => TARGET => ASSIST => HOST 


IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 


La PATTERN TEST SENDS SIX 2 gh! LOOP yy em 

O EACH NODE CONTAINED IN THE NODE TABLE. ~~ H OF THE SIX 
PATTERN TYPES (ALPHA, ONES, ZEROS, 1ALT, OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 


THE ALL NODE TEST PERFORMS THE MOST mae yog Baye OF THE 
NETWORK AND IS COMPOSED OF TWO ‘ TS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 


TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 


1-2 2-3 3-4 4-5 5-6 6-7 
1-3 2-4 3-5 4-6 5-7 

1-4 e~5 3-6 4-7 

1-5 2-6 3-7 

1-6 2-7 

1-7 


A REQUEST ID MESSAGE IS SENT TO THE NODE SPECIFIED BY ADR 
AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED. 


THE BUILD COMMAND CAUSES THE EXERCISERS TO LISTEN FOR 
ARE BROADCAST BY A 


LL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL MODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NODE TABLE. THE PuaLe COMMAND STOPS 
WHEN NO NEW NODES HAVE BEEN ADDED FOR 10 MINUTES OR WHEN 
40 MINUTES HAVE ELAPSED. THE AVERAGE TIME FOR THIS 
COMMAND SHOULD BE 15-25 MINUTES. 


THE CLEAR NODE COMMAND CLEARS THE SPECIFIED NODE FROM 
THE NODE TABLE. THE NODE CAN BE SPECIFIED BY EITHER 
ITS 12 DIGIT PHYSICAL ADDRESS OF ITS LOGICAL NAME 


J1 
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SEQ 9 


(AS ASSIGNED BY NODE TABLE). 
CLEAR NODE/ALL THIS COMMAND CLEARS THE NODE TABLE. 


CLEAR MESSAGE THIS COMMAND SETS THE MESSAGE PARAMETERS GACK TO THE 
DEFAULT VALUES. 


CLEAR SUMMARY THIS COMMAND CLEARS THE SUMMARY TABLE. 

SUMMARY THE SUMMARY COMMAND PRINTS OUT THE SUMMARY TABLE. 
THE NIE MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES: 


RECEIVES NOT COMPLETE RECEIVES COMPLETE 


LENGTH ERRSAS DATA COMPARE ERRORS 
BYTES COMPARE) BYTES TRANSFERED 
SAVE THE SAVE COMMAND SAVES THE CONTENTS OF THE NODE TABLE. 


FOR THE VAX VERSION, THE TABLE IS SAVED _IN A FILE CALLED 
NIE.TBL. THE PDP-11 VERSION CANNOT WRITE TO EXTERNAL 
MEDIA, SO THE CONTENTS ARE SAVE INTERNALLY. 


UNSAVE THE UNSAVE COMMAND RESTORES THE CONTENTS OF THE NODE TABLE. 
USED. THE PDP=11 VERSION USES THE CONTENTS OF ITS 
INTERNALLY SAVED TABLE. 

UNSAVE/FILE.EXT THE UNSAVE COMMAND WHEN USED WITH A FILE NAME WILL READ 
A NODE TABLE CREATED BY USING AN EDITOR FOR AN XXDP+ 
MEDIA. 

EXIT RETURNS CONTROL TO THE DIAGNOSTIC SUPERVISOR 
(EITHER VDS OR DRS). 

NOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE oN THE NI. 
2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 69534. 
A DEFAULT VALUE OF 1 IS ASSUMED. SPECIFYING - 
CAUSES THE TEST TO BE RUN INDEFINATELY. 

2.5 SOFTWARE QUESTIONS 

AFTER You HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIF?C 

BE PROMPTED BY ' HANGE Sw <L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

‘yy’, THE SOFTWARE QUESTIONS AND THE DEFAULT SALU S ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 

2.6 ourex START-UP PROCEDURE (XXDP+) 

TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
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IS A CLOCK) QUESTIONS 


E ''R NAME’’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE **START'’ 

ANSWER THE ‘’CHANGE HW’ QUESTION WITH ‘‘Y'’ 
ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “‘CHANGE SW’ QUESTION WITH ‘'N'’ 


WHEN YOU foe EL THIS Sg ea > WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "IER'’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


eWHERE; NAME = DIAGNOSTIC NAME 
TYPE = one TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 


NUMBE 

UNIT NUMBER = 0 - N (N _IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE gore OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CAL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE 

THE ‘IER’ OR “‘IBR'' FLAGS ARE SET (SEC 

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSA 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
CON OR GOOD/BAD A ESE 


QOD/BAD DATA. THESE ARE ALWAYS 
TBR’ OR "'IXR" FLAGS ARE SET (SECTION 2.3). 

AGE ED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
ERROR MESSAGE: MEANING 


?ILL CMD-BAD SYNTAX A COMMAND WITH * ILLEGAL CHAR WAS 
TYPED = RETYPE THE COMMAND. THE VAILD 
COMMANDS AND THEIR SYNTAX ARE SHOWN 
IN SECTION 2.5 
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e 
2 INCOMPLETE Ay GeeUIneD PART OF A COMMAND WAS LEFT 


2NUMBER TOO BIG THE “ od Rays! STRING IN_THE 
COMMAN’ D ALINE d's y THAN 65535 
OR 17777 OCTAL ¢ >16 BITS). 


?BAD RADIX A_‘8"* OR °9°" WAS TYPED WHEN AN OCTAL 
STRING Otas EXPECTED. PROBABLY OCCURED 
WHEN TYP A_*DUMP"* COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 


EXAMPLE OF A LOST PACKET ERROR DURING LOOPPAIR TESTING 


CZUAC HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:064442 


TIMEOUT OCCURED = LOOP 3 ae TYPE = RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-00-03-00-00-00 
FAILING ASSIST NODE ADDRESS: AA-00-03-00-00-02 


EXAMPLE OF A LOST PACKET ERROR DURING PATTERN TESTING 


CZUAC HRD ERR 00028 ON UNIT 00 TST 001 ”$UB 000 PC: 63730 


TIMEOUT OCCURED BEFORE LOOPBACK REPLY 
FAILING NODE ADDRESS: AA-00-03-00-00-00 
DATA PATTERN: ONES 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOT MBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE *EOP’* SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


THIS IS THE DEFAULT HARDWARE P-TABLE. THE VALUES AND SIZE ARE USED 
AS A *"TEMPLATE’’ FOR CREATING ACTUAL P=TABLE ENTRIES AND THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HARDWARE QUESTIONS. 


THE NUMBERS IN ag =H: (I. 232 petenye He: Bk UF THE WORD 

INTO THE HARDWARE P-TABLE. THE OFFSETS MUST THE P-TABLE OFFSETS 
USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE “GET PARAMETER 
CALLS ARE USED TO FILL THE P-TABLE. 


-WORD 174510 3C0] CSR ADDRESS 
-WORD 120 3£2] INTERRUPT VECTOR 
-WORD 240 36] INTERRUPT PPIORITY (5) 
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6.0 TEST SUMMARIES 

6.1 DIRECT 

THE DIRECT TEST te A LOOP DIRECT MESSAGE re ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 

THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 

ARE REPORTED TO THE OPERATOR. 

6.2 LOOPPAIR 

THE LOCPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS or IN THE NODE TABLE. THREE TYPE OF ASSISTED 

MESSAGES ARE SENT: 

1) RECEIVE ASSIST == HOST => » athe -> Re et -> ay >! 

2) TRANSMIT ASSIST == HOST => ASSIST => TARGET HOST 

3) FULL ASSIST == HOST => ASSIST => TARGET -> ASSIST => HOST 

IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 

6.3 PATTERN 

THE PATTERN TEST SENDS SIX ou enee't LOOP DIRECT mt 

‘TO EACH NODE CONTAINED one THE NOD io 


oe OF THE SIX 
PATTERN TYPES (ALPHA, ON ZEROS, 1 “OALT 


CCITT 
IS USED FOR EACH NODE. RETURNED SATA’ 18 CHECKED FOR ERRORS. 


6.4 ALL 


THE ALL NODE TEST PERFORMS THE MOST mead gg CHECK OF THE 
NETWORK AND IS C SED OF TWO cy FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN Ye TABLE. if THIS IS 
peers SFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
OM THE TABLE ‘7 SENDS A FULL ASSISTED LOOPBACK Sa ro 
10 OEACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR ‘ 
TABLE WITH 7 NODES IS SHOWN BELOW. 


-SBTTL PROGRAM HEADER 


eENABL ABS,AMA 
002000 ° = 2000 


-SBTTL PROGRAM MACROS 
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sISSTACK MACRO 


pete 
3 THE Le MACRO wee atace INITIALIZING THE R6 wee STACK 
AN (PARAMETER) ST “y IS SET TO THE STACK LOW LIMIT 
K_GROWS UPWARD. R6 be et 10 THE 
4 THE HARDWARE STACK GROWS DOWNWARD. 
z1F) THERE IS A STACK OVER-RUN, IT WILL BE DETECTED BY THE PREG14 


«MACRO ISSTACK STAKLO,STAKHI 


MOV STAKLO,R5 s INITIALIZE THE PARAMETER STACK POINTER. 
MOV STAKHI , SP INITIALIZE THE HARDWARE STACK POINTER. 


~ENDM  ISSTACK 
sPUSH MACRO 


E "PUSH" MACRO FACILITATES PUSHING ITEMS ON THE HARDWARE STACK. 
UP. TO SEVEN ITEMS MAY BE PLACED ON THE STACK WITH ONE MACRO. 


“MACRO PUSH A,B,C.D.E.F.G 


-IF NB G 
MOV G,-(SP) 
-ENDC 


-IF NB F 
MOV F,=(SP) 
-ENDC 


-IF NB E 
MOV E,-(SP) 
ENDC 
D 
D,-(SP) 


C 
C,-(SP) 


iF NB B 
MOV B,-(SP) 
-ENDC 


-IF NBA 
MOV A,~(SP) 
ENDC 
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-ENDM PUSH 
POP MACRO 


THE 


THE *‘POP’* MACRO FACILITATES RETRIEVING ITEMS FROM THE HARDWARE STACK. 
iUP TO SEVEN ITEMS MAY BE RETRIEVED WITH ONE MACRO. 


«MACRO POP A,B,C.D.E,F.G 
-IF NBA 
MOV (SP)+,A 
-ENDC 
-IF NB B 
MOV (SP)+,B 
-ENDC 
-IF NB C 
MOV (SP)+,C 
NDC 


-IF NB D 
MOV (SP)+,D 
ENDC 


-IF NB E 
MOV (SP)+,£ 
~ENDC 


-IF NB F 
MOV (SP)+,F 
~ENDC 


-IF NBG 

MOV (SP)+,G 
-ENDC 

-ENDM POP 
CALL MACRO 


THE CALL MACRO FACILITATES CALLING A SUBROUTINE VIA THE REGISTER 
ZPRESERVE ROUTINE (PREG14). IT PLACES THE PARAMETERS TO BE PASSED ON 
i THE etapa STACK. UP TO 7 PARAMETERS MAY BE PASSED USING THIS 


«MACRO CALL S A,B,C,D,E.F.G 
-IF NBG 
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MOV G,(R5)+ 
ENDC 


CZUACAO DEUNA NI EXERCISER DI 
CZUACA.P11 19=JUL-83 17:13 


-IF NB F 
MOV F,(R5)+ 
ENDC 


-IF NB E 
MOV E,(R5)+ 
NDC 


-IF NB D 
MOV D,(R5)+ 
NDC 


IF NBC 
MOV C,(R5)+ 
ENDC 


A 
A, (R5)+ 
R4,PREG14 
S-ANCHOR 
CALL 
;RETURN MACRO 


ptt 
3 THE RETURN MACRO_FACILITATES PASSING PARAMETERS BACK TO A CALLING 
57 UP TO 7 PARAMETERS MAY BE PASSED BACK ON THE PARAMETER 


MACRO RETURN A,B,C,D.E.F.G 


-IF NBG 
MOV G,(R5)+ 
-ENDC 
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MOV D,(R5)+ 

ENDC 


IF NBC 
MOV C,(R5)+ 
ENDC 


B 
B,(R5)+ 


-IF NBA 
MOV A,(R5)+ 
-ENDC 


RTS PC 


-ENDM RETURN 
3PSPUSH MACRO 


ptt 
3THE PSPUSH MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 
STACK. UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO. 


-MACRO PS$PUSH A,B,C.D.E.F.G 


-IF NBG 
MOV G,(R5)+ 
-ENDC 


IF NB F 
MOV F,(R5)+ 
ENDC 


-IF NB E 
MOV E,(R5)+ 
NDC 


-IF NB D 

MOV D,(R5)+ 
-ENDC 

-IF NBC 

MOV C,(R5)+ 
-ENDC 

-IF NB B 

MOV B,(R5)+ 
-ENDC 


-IF NBA 
MOV A,(R5)+ 
-ENDC 
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-ENDM PS$PUSH 
3P$POP MACRO 


p++ 
3 THE PSPOP MACRO FACILITATES RETRIEVING PARAMETERS FROM THE PARAMETER 
sSTACK. UP TO 7 PARAMETERS MAY BE RETRIEVED. 


‘THE ROUTINE THAT RECEIVES THE PARAMETERS HAS THE an hie to facin OF 
[CLEANING UP THE PARAMETER STACK. THIS MACRO IS AN AID TO MAKING 
3A LOCAL COPY OF PASSED PARAMETERS AND CLEANING UP THE PARAMETER STACK. 


-MACRO PSPOP A,B,C,D.E.F.G 
-IF NBA 
MOV =(R5),A 

NDC 


-IF NB B 
MOV -(R5).B 
NDC 


-IF NBC 
MOV =(R5),C 
NDC 


-IF NB D 
MOV ~(R5),D 
NDC 


-IF NB E 
MOV ~(R5),E 
NDC 


-IF NB F 
MOV ~(R5) ,F 
ENDC 


G 
-(R5) -G 


P$POP 


CHAR, ,HITVAL ,MISADR, CMPSTR 
CHAR, HITVAL.\X$,MISADR,CMPSTR  ;;#### PARSE TREE #aae 


NODCL CHAR,HITVAL,XY,MISADR,CMPSTR 
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915 NOD'XY: .BYTE CHAR,HITVAL sSPECIAL CHAR. CODE OR COMPARE CHAR. 
916 : AND ACTION (HIT) VALUE FOR ACTION 
917 ; ROUTINES. 
918 -IF NB MISADR - <a 
919 «WORD MISADR=NOD'XyY sDISPLACEMENT TO ‘MISS** NODE (BYTES) 
920 -ENDC 
921 -IF NB CMPSTR 
922 -WORD 1$-NOD'XY sDISPLACEMENT TO GET TO NEXT NODE 
923 eASCIZ CMPSTR : (ONLY IF ITS A ‘‘CLISTR** NODE) 
924 EVEN 
925 eNLIST 
926 1$: 
927 LIST 
928 eENDC 
929 eNLIST 
930 X$=X$+1 
931 LIST 
o36 ~ENDM 
934 -MACRO RNGFRM A,B,C : MACRO TO FORM TRANSMIT AND RECIEVE 
935 : DESCRIPTOR RINGS. 
936 
937 LIST 
938 -WORD RPKLEN ; SEGMENT LENGTH 
939 eNLIST 
940 NEXT A,\B 
941 B=B+1 
942 LIST 
943 eWORD C 3 — AND STATUS BITS 
944 WO 0 3 STATU 
or WOR 0 3; SEQUENCE NUMBER 
947 eNLIST 
948 ~ENDM 
949 
950 eMACRO NEXT A,B 
951 LIST 
952 -WORD A‘B 3; SEGMENT BUFFER ADDRESS 
953 eNLIST 
954 ~ENDM. 
955 
956 p++ 
957 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
o38 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
960 
961 002000 POINTER BGNRPT 
ss 
964 002000 HEADER CZUAC,A,0,0,1,PRI07 
965 002000 LSNAME : : 
946 002000 103 eASCII /C/ 
967 00200 132 eASCII /2/ 
968 002002 125 eASCII /U/ 
9 002003 101 ASCII /A/ 
970 002 103 eASCII /C/ 
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I 
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LS$REV:: 
ASCII 


LSDEPO:: 
ASCII 
LSUNIT:: 
WORD 
LSTIML:: 
000000 WORD 
LSHPCP:: 
112752 ~WORD  LSHARD 
LSSPCP:: 
000000 -WORD 0 
LSHPTP:: 
002170 -WORD LSHW 
LSSPTP:: 
000000 «WORD 0 
LSLADP:: 
113156 -WORD LSLAST 
LS$STA:: 
000090 -WORD O 
L$CO:: 
000000 -WORD 0 
LSDTYP:: 
000001 1 
LSAPT:: 
000000 0 
LSDTP:: 
002164 LSDISPATCH 
LSPRIO:: 
000340 PRIO7 
LSENVI:: 
000000 0 
LSEXP1:: 
000000 0 
LSMREV:: 
003 CSREVISION 
003 8 CSEDIT 
LSEF:: 
000000 0 
000000 0 
LS$SPC:: 
000000 0 
LSDEVP:: 
002122 LSDVTYP 
sa LSREPP:: 
076560 LSRPT 
LSEXP4:: 
000000 0 
LSEXPS:: 
000000 0 
LSAUT:: 
000000 0 
002072 LSDUT:: 


999 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 


bd a ts ss 2 —s as —» ns -s — 4s — 9 9 — 4 ss, 3s —) 4 9 9 2 2 YY 3 2 


pe lojojejejejejejejejejelelq-jelej=) 


NORPRO NNNY @ A ot 
QAUESWNM-—OVOONOUSWN—o 
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CZUACA.P11 


SERRERRREP RGEC RSS 


uw 


19=JUL=83 
000000 
000000 
002130 
104035 
000000 
076600 
100142 
100140 
076572 
000000 
000000 
000000 


ER DIAGNOSTIC 
17:13 
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PROGRAM MA 


LS$LUN: : 
LSDESP:: 
L$LM4D:: 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


0 

0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 


wv 


> NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <DEUNA> 


ooooo 
wi wi 


LSDVTYP:: 


002122 042504 047125 000101 /DEUNA/ 


S38 


RRREAT 


; TEST DESCRIPTION 
DESCRIPT 


WRC OBNOUSWN —“OVONOULSWN—O 


002130 <CZUAC DEUNA NI EXERCISER> 
002130 


055103 040525 eASCIZ /CZUAC DEUNA NI 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


051511 
002160 


-EVEN 


t FORMAT STATEMENTS USED IN PRINT CALLS 
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1080 -SBTTL DISPATCH TABLE 


~ 
oOo 
@ 
—_ 


So 
wr 


p++ 
3 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 1 
000001 WORD 
LSDISPATCH:: 
100274 WORD 


1 

1 

1084 
1085 
1086 
1087 
1088 
1089 
ey 


[ 
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-SBTTL DEFAULT HARDWARE P-TABLE 


3+t 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; CE PARAMETERS. THE STRUCTURE OF THIS TABLE 
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P=TABLES, 
;_AND IS USED AS A ‘TEMPLATE’’ FOR BUILDING THE P-TABLES. 


S2S332 


BGNHW DFPTBL 
000003 eWORD 1L10000-L$HW/2 


174510 . 3 CSR 
000120 . : VECTOR 
000240 ° : PRIORITY 


SBLRSRALSS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


mee et ed ed etd ad ot ot 


— od et 
Mu-o 
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CZUACAO_ DEUNA NI EXERCISE 
17:13 DEFAULT HARDWARE P-TABL 


ISER 
CZUACA.P11 19=JUL=83 17: 


a 
= 
— 
Ww 


-SBTTL SOFTWARE P-TABLE 


3+t 

; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
; A — TIME AND MAY BE VARIED BY THE OPERATOR 


002176 BGNSW = =SFPTBL 
002176 -WOR L10001-L$SwW/2 
002200 


L$SW:: 
002200 SFPTBL:: 
002200 ENDSW 
002200 L10001: 
-SBTTL GLOBAL EQUATES SECTION 


WWUWUINUWR RUNNIN S ad ad od od od 


p++ 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3 ARE USED IN MORE THAN ONE TEST. 


EQUALS 
: BIT DIFINITIONS 


BIT15== 100000 
= 40000 
0000 


BRERW 


aww 
bat bee as 
~ 
—s 


soo--== 
VODO—=NWS 
nonnvnnunnennnn es 


owmow 
ts ee Ld te beg 
Ss 


AAU IU UII & BS SS 
RS 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


000040 
000020 
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000010 B1T3== 
000004 BIT2== 
BITi== 
BIT0== 


_ 
a 
oO 


000001 


: EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. 3 START COMMAND WAS ISSUED 

EF .RESTART== 31. 3 RESTART COMMAND WAS ISSUED 

EF.CONTINUE== 30. 3 CONT COMMAND WAS ISSUED 
9 3 A NEW PASS HAS BEEN STARTED 


EF .NEW== 29. 
EF .PWR== 28. A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 
PR 0 


eee me ce me ee ee ee ee ed ed a ed ed ed ed ed od td od = od = ot 
KIRA LSESEVEALATLSIHNRAEAVAS 


00 
N 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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— 
nm 
— 
— 


sARG TYPE FOR ‘SHOW COUNTERS’ CMD 

ZARG TYPE FOR ‘CLEAR NODE/ADR’ CMD 

cele 16 ARG TYPE FOR "CLEAR NODE/ALL" CMD 
==16. 


333CLOCK ENABLE VALUES TO BE LOADED IN CLK*S CSR;;; 
LCLKEN==100 : L=CLOCK CSR VALUE TO ENABLE THE CLOCK 


PCLKEN==111 3 P-CLOCK CSR VALUE TO ENABLE THE CLOCK 
PCLKCT==1600 3 P-CLOCK COUNT SET REGISTER FOR COUNTER 


ee ee De ce ee ceed ce ce ed eed eed eed eed eed ed ed 
POPOPIPOPONININI NNN NoNyNngfongfny 
POPIPININININID) 2 ot tt 
NOAUSWN SO OONOULS Ww 


: oe. CLI CODES FOR ‘*CHAR’* ARGUEMENT IN CLI CALLS 
: eae hy INTERPRETER DEFINITIONS) 


m 
nnn ne 


rm} 
-cc- 
bead bent tame Saag 
% 
a> 


te] 

= 

fem 

: 
NOUS WIN =O 


oO 
-- 
bom eg 
EE 

wv 

on 


CCPYS=27 
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1267 000030 CNDADR=30 
1268 000031 CNODAL=31 
1269 000032 CRNALL=3 
1270 000033 CLUPPR= 
1271 000034 CSHMSG=34 
1272 000035 CCLMSG=35 
1273 36 CCNTR=36 
1274 000037 CNDLOG=37 
1275 0 CFUNCT= 
1276 000041 UNSAV=41 
1277 2 CCLSUM=42 
1278 000043 CDIR=43 
1279 000044 CDEFLT=44 
1280 000045 CUNSVF=45 
1282 000000 ALPHA== sMESSAGE TYPE VALUES 
1283 000001 ONES== 
284 000002 ZEROS==2 
1285 000003 ALT== 
1286 000004 ZROALT== 
1287 000005 CCITT==5 
1288 000006 OPRSEL== 
1289 
1290 3 
1291 : GLOBAL EQUATES FOR THE DEUNA DRIVER 
1295 SPORT CONTROL AND STATUS REGISTER 0 
1295 
1296 0000 SERI ss == BIT15 : STATUS ERROR INTERRUPT 
1297 040000 PCE] == BIT14 : PORT COMMAND ERROR INTERRUPT 
1298 0000 RKI == BIT13 : RECEIVE RING INTERRUPT 
1299 010000 TX! == BITI2 : TRANSMIT RING INTERRUPT 
1300 04000 DNI == BIT11 + DONE INTERRUP 
1301 2000 RCBI = == BIT10 : RECEIVE BUFFER UNAVAILABLE 
1303 000400 FATI == BITO8 : FATAL ERROR INTERERUPT 
1304 000200 INTR == BIT07 : INTERRUPT SUMMARY <15:08> 
1305 000100 INTE == B1IT06 : INTERRUPT ENABL 
1306 000040 RSET == 81705 + UNA RESET 
1308 ; PORT COMMANDS IN BIT 3 TO BIT 0 
1310 , 
1311 000001 TPCB == BITOO : GET ADDRESS OF PORT CONTROL BLOCK 
1312 0002 GETFNT == BITO1 : GET COMMAND IN PORT CONTROL BLOCK 
1313 000003 == 811 00:81 101 * NO OPERATION PERFORMED 
1314 000004 STRT == BITO2 + ENABLE XMIT AND RCVR 
1315 00005 =e Bi102/B1T00 : BOOT , => PRIM LOAD STATE, 
1316 :  INITATE DOWNLINE LOAD 
1318 000010 PDMD == BIT03 : POLLING DEMAND/WAKE UP BIT 
1319 000011 THRO == BIT03!B1T00 : SANITY TIMER ENABLE ( ( =1 ITS ON) 
1320 000012 TMRF == BITO3'BI1T01 + SANITY TIMER OFF 
1321 000015 RSTT == Bt T03iB1 T02!B1T00 : RESET SANITY TIMER 
1322 000017 STOP == Bt TOS iBT 109 iB1 101 1B1T00 + SUSPEND UNA OPERATION 
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CZUACAO DEUNA NI EXERCISER DI 
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I 
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sPORT CONTROL AND STATUS REGISTER 1 


Mrr 
ooo 


100000 XPWR 3 TRANSCEIVER POWER OK 
040000 ICAB : PORT TO LINK CABLE OK 


: RROR CODE IN BIT 13 TO BIT 08 
000200 oO 107 ; PORT COMMAND TIMEOUT 


000010 RMTC == BITOS ; REMOTE CONSOLE RESERVED (=1) 
; PORT STATE IN BIT 2 TO BIT 0 


DIRE WS 


FESESY 


RESET == 
PRIMLD== B1T00 


S O RESET STATE 
READY== BITO1 ; 4 
1 
1 
1 


1 PRIMARY LOAD STATE 
O READY STATE 

1 RUNNING STATE 

1 UNIBUS HALTED STATE 

0 NI HALTED STATE 

1 NI AND UNIBUS HALTED STATE 


400003 RUN == B1T01!B1T00 


000005 UNIHLT == 
000006 NIHLT == 
000007 NIUNI == 


B1T02!B1T00 
B81T02!B1T01 
B1T02!BIT01!B1T00 


0 
0 
1 
1 
0 
1 
1 
sPORT CONTROL AND STATUS REGISTER 2 


3 LOWER 16 ADDRESS BITS OF THE ri! CONTROL BLOCK BASE 
; ADDRESS POINTER IN BIT 15 TO BIT 0 


sPORT CONTROL AND STATUS REGISTER 3 


3 UPPER 2 ADDRESS BITS OF THE PORT CONTROL BLOCK BASE 
; ADDRESS POINTER IN BIT 1 TO BIT 0 


PORT FUNCTIONS 
; FUNCTION CODES ARE AS FOLLOWS 


MO V0ONOuU 


RARAAA AAG AICI Be 


000000 PFNOP == 0 ; NO OPERATION PERFORMED 
000002 RDDEFA == B1T01 ; READ DEFAULT PHYSICAL ADDRESS 


000004 RDPHYA 15 ; READ PHYSICAL ADDRESS 
000005 WDPHYA ; WRITE PHYSICAL ADDRESS 


000006 RDMULA Ht ive : READ LIST OF MULTICAST ADDRESSES 
000007 WDMULA ; WRITE LIST OF MULTICAST ADDRESSES 


000010 RDRNGS ; READ BOTH THE RCVR AND XMIT RINGS 
000011 WDRNGS : ; WRITE BOTH THE RCVR AND XMIT RINGS 


000012 RDCNTS 'BITO1 3 READ COUNTERS 
000013 CLRCNTS : : : READ AND CLEAR COUNTERS 


WW 


WWWAW 
NNN NNNS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AWG 
SIN 
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1379 000014 RDMODE 02 3 READ INTERNAL LINK MODE REGISTER 
1380 000015 WDMODE : WRITE INTERNAL LINK MODE REGISTER 


1381 
000016 RDSTA 3!B1T02!B1T01 ; READ PORT STATUS 
000017 CLRSTA 3!B1T02!B1T01!81T00 
3 READ AND CLEAR PORT STATUS 


000020 DMPMEM T04 ; DUMP INTERNAL MEMORY 
000021 LDMEM T04!B1T00 ; LOAD INTERNAL MEMORY 


000022 RDSYS T04!BITO1 3 READ SYSTEM ID PARAMETERS 
000023 WDSYS TO4!BITOT!BITOO ; WRITE SYSTEM ID PARAMETERS 


ae 


Sees 


w 


WAN 
SESS 


° 


000016 HEADER ; OFFSET (SIZE) TO END OF HEADER IN BYTES 


000000 DESTIN : DESTINATION ADDRESS 
000006 : SOURCE ADDRESS 
000014 . : PROTOCOL TYPE FIELD 


! DESTINATION ADDRESS ! 


(6 BYTES) 


Sa Ht tS Ht tH OH HS 


MORE DATA 


a> 


XMIT RING DESCRIPTOR DEFINITIONS 
3; TDRB+0 

NOTHING NEEDED 
; TDORB+2 

NOTHING NEEDED 
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3 TORB+4 


END OF PACKET FLAG 

STOP OF PACKET FLAG 

DEFFERRING PACKET FLAG 

XMIT SUCCESSFUL AFTER ONE RETRY 
XMIT “OME RETRY AFTER MORE THAN 


ERROR SUMMARY BIT 
; OWNERSHIP BIT (=1 UNA, =0 HOST) 


040000 
100000 


002000 ; RETRY ERROR BIT 
004000 LOST CARRIER ERROR BIT 
010000 ; LATE COLLISION ERROR BIT 


040000 : UNIBUS TIMEOUT ERROR BIT 
100000 ; BUFFER LENGTH ERROR BIT 


RCVR RING DESCRIPTOR DEF INTIONS 


; RDRB+O 
; NOTHING NEEDED 
; RDRB+2 
; NOTHING NEEDED 


3 RDRB+4 


3 <~ INDICATES SAME AS DEFINED FOR XMIT RING 


3 ENP ; END OF PACKET FLAG 
3STP ; STOP OF PACKET FLAG 


004000 CRC ; CRC ERROR IN RECEIVED PACKET 
010000 OFLO ; MESSAGE OVERFLOW 
020000 FRAM ; FRAMING ERROR 


zERRS ; ERROR SUMMARY BIT 
: OWN ; OWNERSHIP BIT (=1 UNA, =0 HOST) 


; RDRB+6 


020000 NCHN ; SET TO INDICATE UNA_IN NO 
; BUFFER CHAIN ON RCVR MODE 


;UBTO ; UNIBUS TIMEOUT ERROR BIT 
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; BUFFER LENGTH ERROR BIT 


; TRANSMIT PACKET oo 
; RECIEVE PACKET LENGHT 
; NUMBER OF ENTRIES IN DESCRIPTOR RINGS 
; NODE TABLE LENGTH (CHANGE STBLEN IF 

; THIS IS CHANGED, OR ELSE!) 

; SUMMARY TABLE LENGTH (= 2.25 X TBLLEN) 
; OFFSET FOR MESSAGE HEADERS 


002756 XPKLEN 
002756 RPKLEN 
000006 NO.NTR 
000050 TBLLEN 


000132 STBLEN 
000004 FRDADR 


> SYSTEM ID REPLY MESSAGE OFFSETS 
000022 


Worn 
onrnm 


000042 
000053 


000016 LDSKIP 


000032 LDADR2 


000016 


000052 

: COUNTER OFFSETS 
000002 
000004 


PSWIWWININ 2S PM SNM 
OfNVOLOOLS 


000040 





a. 
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000044 C. ct fe 
000050 
000054 
000060 
000064 
000066 
000070 
000074 


se DOO 
SooLosflof 


-SBTTL GLOBAL DATA SECTION 


WONAULSWN—OOOnN 


: THe GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
;_IN MORE THAN ONE TEST. 


COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 
000110 : 72. sBUFFER FOR OPERATOR COMMANDS 
000000 : .WO 


AAAI MUVIVIVIVIVIVIV 
SSSYSVLUNOLSS BS i 


FAVS 


BUFFER FOR NODE ADDRESS 


BUFFER FOR ALPHANUM. ADDRESS STRING 


POINTER FOR BEGINING A ADDRESS STRING 
zLOC. TO HOLD MESSAGE TYPE 
LOC. TO HOLD a SIZE 
;LOC. TO HOLD NO. OF prbeny COPIES 
3LOC. TO HOLD NO. OF PASSE 
TO HOLD NODE TYPE FOR NODE TABLE SETUP 
USED + a TABLE SUBROUTINES 
SPACE FOR NOD 
FILL LAST FOUR BYTES OF TABLE WITH ONES 


ek ek ek a ed ed ed td ot 2 od od od SS = = = 
wi 
co0o 


SLOT:: 
NODTBL: 


0 
0 
0 
0 
0 
1 
1 
0 
0 
0 
0 
0 
0 
0 
T 
1 
1 
T 


On~nw 
~ 


SAVTBL: EN SPACE FOR SAVE TABLE 
ILLADR: R ; ILLEGAL ADDRESS FOR COMPARISON 
wO 777 ¢ END OF SAVE BE preeeny SEPARATED FROM 


TBL 
STATBL: SPACE FOR SUMMARY TABLE 
003142 177777 


TRAVERSE LOCATIONS (USED BY ‘PSTRV"') 
003144 000000 : :LOC. TO is ADDR. e C ¢ INE BUFFER 


LD NUMERIC V ROM P. 
zLOC. TO HOLD RADIX(LOD re +/-(HI BYTE) 
RETURN =0 IF cNOU GH OF COMMAND FOUND 

RETURN CODE 0 IF NO ERROR FOUND 

3RETURN 0 IF 12! DIGIT ADDRESS ENTERED 
;RETURN -1 IF ERROR IN OPERATOR SELECTED 

MESSAGE INPUT OCCURED, 0 FOR GOOD INPUT 


Ooooooooeo 


003163 
003164 056060 HLPTAB: . 


= 
mn 
_ 
v 
od 
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CZUACAO DEUNA NI EXERCISER DI 
17:13 GLOBAL DATA SECTI 


CZUACA.P11 19=JUL~83 
056161 


RD 
7:1 


SeeSSFe 


AAAAAAA OOO 
and aad ad and axed and a end ed en 


FUN -OCVONOULSWN—Oo 


RRR 


SES 
MRM 
OOnNOuU 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


HLPEND: . 0 
MSGTAB: 40 sMESSAGE TYPE ASCII ADDRESS TABLE 


003276 062433 OR MSGTY6 

3 THIS SECTION DEFINES THE DATA PATTERNS USED BY THE EXERCISER 
003300 MSGCNT:: 
003300 MSGOC: 


goo EMSGO-MSG00 ; THE NUMBER OF BYTES IN EACH MESSAGE 


EMSG1-MSGO01 
EMSG2-MSG02 


003314 000000 


003316 
003334 
003464 


003330 003470 
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1659 003332 003570 -WORD OPSLBF 


SEu 33 


0 
(Lal 


1660 
1661 003334 020440 021442 022444 MSGO0:: .ASCII \ !°#$%8°()*+,-/0123456789: ;<=>?QGABCDEF GHI JKLMNOPOQRSTUVWXYZ\ 
1662 003342 023446 024450 025452 
1663 00 026454 030057 061 
1664 003356 032063 033 034067 
1665 035071 036073 037075 
1666 003372 0077 041101 042103 
1667 043105 044107 045111 
1668 6113 047115 17 
1669 003414 051121 052123 053125 
1670 003422 054127 055131 
1671 003426 056533 026536 041101 ASCII \CIJ*-ABCDEFGHI JKLMNOPORSTUVWXYZ\ ; ALPHANUMERIC 
1672 003434 042103 043105 044107 
1673 003442 045111 046113 047115 
1674 003450 050117 051121 052123 
1675 003456 053125 054127 055131 
1676 003464 EMSGO:: 
1677 003464 377 MSGO1:: .BYTE 377 ; MESSAGE OF ALL ONES 
1678 003465 EMSG1:: 
1679 003465 000 MSGO2:: .BYTE 0 ; MESSAGE OF ALL ZEROS 
1680 3466 EMSG2:: 
1681 003466 252 MSGO3:: .BYTE 252 : MESSAGE OF ALTERNATING ONES 
1682 003467 EMSG3:: 
1683 003467 125 MSGO04:: .BYTE 125 3; MESSAGE OF ALTERNATING ZEROS 
1684 003470 EMSG4:: 
1685 003470 MSGO5:: CITT 511 BIT TEST PATTERN 
1686 003470 177603 157427 031011 «WORD 177603,157427,031011, on782- 168715. 105221 
1687 003476 047321 163715 105221 
1688 003504 143325 142304 040041 eWORD 143325,142304,040041,104116,052606,172334 

1689 003512 104116 052606 172334 
1690 003520 105025 123754 111337 eWORD 105025,123754,111337,111523,030030, 145064 
1691 003526 111523 030030 145064 
1692 0035 137642 143531 063617 eWORD 137642,143531,063617, 135075 ,066730,026575 
1693 003542 135075 066730 026575 

694 003550 052012 053627 070071 eWORD 052012,053627,070071,151172,165044,031605 
1695 003556 151172 165044 031605 
1696 pet heal 166632 016147 eWORD 166632,016147 
1697 003570 EMSGS:: 
os 003570 000102 OPSLOF: .BLKB 66. ;BUFFER FOR OPERATOR SELECTED MESSAGE TYPE 
1700 
1h 003672 000000 CFLAG: .WORD 0 sACTION ROUTINE CMD ARGUMENT FLAG 
1703 3;CLOCK TABLES, EVENT LOG AND POINTERS 
1704 003674 000000 CLKCSR: .WORD 0 ; CLOCK CSR ADDRESS 
1705 003676 000000 CLKBR: .WORD 0 ; CLOCK INTERRUPT LEVEL 

706 003700 000600 CLKVEC: .WORD 0 : CLOCK INTERRUPT VECTOR 
1707 003702 000074 LKHZ: .WORD 60. 3 LOCK'S FREQUENCY IN HERTZ 
A 3704 CLKEN: .WORD 0 3; CLOCK'S CSR VALUE TO INTRPT. ENABLE IT 
1710 003706 9 TIMMIN: .WORD 0 3: PLACE TO KEEP TIME-SINCE-START 

1711 003710 000000 TIMSEC: .WORD 0 
hat 003712 000000 TIMTCK: .WO 0 ; PLACE TO KEEP NO. OF TICKS/SEC. 
1714 003714 000000 TIMER1: .WORD 0 3; EVENT TIMER #1 (TICKS) 


I 3 
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CZUACA.P11 19=JUL=83 17: 


003716 000000 TIMER2: .WORD 0 3 EVENT TIMER #2 (TICKS) 
003720 000000 TIMERS: ys 0 3 EVENT TIMER #3 (SECONDS) 


I 
3 


= 
~“ 
— 
uw 


: TABLE OF START ADDRESS OF RECIEVE RING BUFFERS 


RRNGTB: : 
-WORD RRGOO1 


NNN NNN SG 
PRARAARAA ORES Ee 
WDONAOUSWN—OOONO 


Cinins 


-WORD RRGOOS 
-WORD RRGO06 


Oey 
wr 


; TABLE OF START ADDRESS OF TRANSMIT RING BUFFERS 


XRNGTB: : 
004162 XRGO01 
wo 


ay 


NN 
SOLS 


S 
CONAUSWN OO 


003746 
003750 023030 wO XRG006 


8 POINTERS TO DESCRIPTOR RING ENTRIES 

003772 XRGSRT:: FIRST ENTRY IN TRANSMIT RING 
004066 33 EVE RING 
003772 

004066 

003772 

004066 i: RRiNG 
004054 ::.WORD XRING+50. 
004150 RRGLST:: RRING+50. 


SRRRRRRRS 


ENTRY IN TRANSMIT RI 
LAST ENTRY IN RECEIVE RING 
VALUE = NO.NTR X 10. 


NNN SNS SSS SSS 


s MVMIMIVIVIVIUIY) 
WNAULSWN—OO 


003772 000006 XRING:: 
eNLIST 
RNGFRM XRG00,B,0 
LIST 


003772 002756 wo RPKLEN ; SEGMENT LENGTH 

003774 XRGO01 ; SEGMENT BUFFER ADDRESS 
003776 000000 ORD 0 ; OWNERSHIP AND STATUS BITS 
004000 WORD 0 ; STATUS 

004002 WORD 0 ; SEQUENCE NUMBER 


004004 002756 RPKLEN ; SEGMENT LENGTH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
17 
1 
17 
1 
17 
1 
1 
1 
1 
1 
1 
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007140 XRG002 
000000 WO 0 


0 
0 


RPKLEN 
“ree: 


0 
0 


002756 RPKLEN 
015074 WO XRG004 
000000 WO 4 

0 


RPKLEN 
— 


0 
0 


RPKLEN 
peice 


SEGMENT BUFFER ADDRESS 
tw HIP AND STATUS BITS 


ST 

SEQUENCE NUMBER 

SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 

Ha eal AND STATUS BITS 

SEQUENCE NUMBER 

SEGMENT LENGTH 

opted BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 

STATUS 

SEQUENCE NUMBER 

SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 

Ait a SHIP AND STATUS BITS 

SEQUENCE NUMBER 

SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 

OWNERSHIP AND STATUS BITS 


STATU 
SEQUENCE NUMBER 


0 


GSonsesesseres 


“NLIST 
“aR RRGOO,B, 100000 


RPKLEN ; SEGMENT LENGTH 
; SEGMENT BUFFER ADDRESS 
; ht al AND STATUS BITS 


STAT 
; SEQUENCE NUMBER 
; SEGMENT LENGTH 
; SEGMENT BUFFER ADDRESS 
; Sy taal AND STATUS BITS 
; SEQUENCE NUMBER 
; SEGMENT LENGTH 
; SEGMENT BUFFER ADDRESS 
; OWNERSHIP AND STATUS BITS 
; STATUS 
; SEQUENCE NUMBER 
002756 RPKLEN ; SEGMENT LENGTH 
036720 . RRGO04 ; SEGMENT BUFFER ADDRESS 


2 SS 
QAViSWN—SOVONOULSUN—OOON 


RVs 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





a 
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1827 004130 100000 -WORD 100000 3: OWNERSHIP AND STATUS BITS 

1828 004132 000000 -WORD 0 3 U 

189) 004134 000000 «WORD 0 3; SEQUENCE NUMBER 

1831 004136 002756 «WORD RPKLEN 3; SEGMENT LENGTH 

1832 004140 041676 eWORD RRGOOS 3; SEGMENT BUFFER ADDRESS 

1833 004142 100000 -WORD 100000 3 OWNERSHIP AND STATUS BITS 

1834 004144 000000 -WORD 0 3; STATUS 

Ieee 004146 eWORD 0 3; SEQUENCE NUMBER 

1837 004150 002756 -WORD RPKLEN 3; SEGMENT LENGTH 

1838 004152 044654 -WORD RRGOO6 3; SEGMENT BUFFER ADDRESS 

1839 004154 100000 eWORD 100000 ; 71 eal AND STATUS BITS 

1840 004156 000000 -WORD 0 3; STATUS 

1m 004160 000000 eWORD 0 3; SEQUENCE NUMBER 

i8ce 

1845 004162 902756 XRGOO1::.BLKB §XPKLEN 3; XMIT RING BUFFERS 

1846 007140 002756 XRGOO2::.BLKB XPKLEN 

1847 012116 002756 XRGOO3::.BLKB §XPKLEN 

1848 015074 002756 xRGO04: : .BL XPKLEN 

1849 020052 002756 XRGOOS::.8LKB XPKLEN 

1339 023030 002756 XRGO06::.BLKB XPKLEN 

1852 026006 002756 RRGOO1::.BLKB RPKLEN 3; RECIEVE RING BUFFERS 

1853 030764 002756 RRGOO2::.BLKB RPKLEN 

1854 033742 002756 RRGOO3::.BLKB §RPKLEN 

1855 720 002756 RRGOO4::.BLKB RPKLEN 

1856 041676 002756 RRGOOS::.BLKB §RPKLEN 

244 044654 002756 RRGOO6::.BLKB #RPKLEN 

189 

1861 FERRARA RARER EREREEEEEAAEEEREEEA EAE REEEAAAREREREAEEEEEEEERERAE EKER REE EEE 

1862 3 

iss? : INFORMATION ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P-TABLE 

1865 ITTITIIITITITITT TILT TiS Iti Ti TiLiTi tii ii iiitiiiiiiiiiiititiiiitiiiiiiiiiiitiiiiitits 

1866 

1867 sPCSRS OF CURRENT SLOT 

1868 047632 000000 PCSRO:: .WORD 3; ADDRESS OF PcsRd (PORT C FIELD 

1869 047634 000000 PCSR1:: .WORD : (STATE & SELF TEST FIELDS 

1870 047636 000000 PCSR2:: .WORD 3 : (PCB ADDRESS LO 15 BITS 

+ 14) 047640 000000 PCSR3:: .WORD : 3 (PCB ADDRESS HI 2 BITS 

1873 047642 000000 PCSROC::.WORD 0 zPCSRO CONTENTS 

1874 047644 000000 PCSR1C::.WORD 0 :PCSR1 CONTENTS 

1875 047646 000000 PCSR2C::.WORD 0 3sPCSR2 CONTENTS 

1976 047650 000000 PCSR35C::.WORD 0 PCSR3 CONTENTS 

1878 

1879 O8 7634 000000 UNACSR::.WORD 0 :CSR 

1880 047654 000000 UNAVEC::.WORD 0 :VECTOR 

1881 be 7656 000000 UNAPRI::.WORD 0 :PRIORITY 


CZUACAO DEUNA NI EXERCIS 
CZUACA.P11 19=JUL=83 


1883 


8 
uw 


CPE eth kt RP Rhett tt td 


OOOOOODOOONDOOOO 
Re ee ee ee ee ee ery 
WONAULSWN $C OONOULSWIN—o 


MMMM 


Nn 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


047660 000000 
047662 000000 


050370 


047746 


047750 000002 
7752 000000 
000000 

000000 


E 
1 


R 
73 
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FRESIZ::.WORD 0 POINTER TO WORD Vendbetgg b SIZE OF FREE MEMORY 
FREMEM::.WORD 0 POINTER TO FREE MEMORY SPACE 


-WORD 0 sCURRENT UNIT NUMBER BEING TESTED 
PORT CONTROL BLOCK FUNCTION STRUCTURES 
3PORT CONTROL BLOCK 

: PORT FUNCTION 

; PORT FUNCTION DEPENDENT PARAMETERS 

; PORT FUNCTION DEPENDENT PARAMETERS 

; PORT FUNCTION DEPENDENT PARAMETERS 

FUNCTION TABLE 
NO OP 
FILL IN THE HOLE 
READ DEFAULT PHYSICAL ADDRESS 
FILL IN R HOLE 
READ PHYSICAL ADDRESS 
WRITE PHYSICAL ADDRESS 
READ MULTICAST ADDRESS LIST 
CRIPTOR 
WRITE DESCRIPTOR RINGS 
READ COUNTERS 
READ AND CLEAR COUNTERS 
EAD MODE 

WRITE MODE 
READ STATUS 
READ AND CLEAR STATUS 
a be ERNAL MEMORY 


OAD INTERNAL MEMORY 
READ SYS _ ID PARAMETERS 
WRITE SYS ID PARAMETERS 


Se Se Ge Ge Se Se Se Ge Ge Se Se Ge Ge Se Ge Ge Se Ge Ge Be 


; PORT NO-OPERATION 
; NO-OP 


RDDEFA == ; READ DEFAULT PHYSICAL ADDRESS 


SRDDE:: ; PCBB+O FUNCTION READ DEFAULT 
DEPADR: : ; PCBB+2 PHYSICAL ADDRESS 
ORD ; PCBB+4 
; PCBB+6 


RDPHYA == ; READ PHYSICAL ADDRESS 





CZUACAO DEUNA NI EXERCIS 


CZUACA.P11 


1939 
1940 


RELRKLKKK 
FWN “SO VONOUSWN— 


BASS 


000000 
MAA AIT 
OONOuU 


RRES 
Wo 


& 
0 


a a ee ee ee ee ee ee Ee es er EL LT 
© FERS 


oO 
“N 


B3SS333 


047760 


19=JUL=83 


000006 
050010 
000090 
000000 


000014 


000007 


003772 
002000 


E 
1 


R 
7: 


D 
1 


I 
3 


AGNOSTIC 


MACY11 30A(1052) 
GLOBAL DATA SECTI 


-EVEN 


Mm 3 


SRDPH:: eWORD 4 : 
PHYADR:: «WORD O 3 
eWORD 0 3 
-WORD 0 : 
WDPHYA == BIT02!B1T00 3 
SWDPH:: eWORD 5 3 
eWORD 0 3 
WO 0 3 
RDMULA == BIT02!B1T01 : 
SRDMC:: WORD 2 
eWORD UCB6 3 
WORD 3 
-WORD 0 3 
UCB6:: -BLKW 12. 5 
WDMULA == BITO2!BITO1'BITOO ; 
SWDMC: : -WORD 7 : 
-WORD UCB7 ; 
eWORD 400 FY 
eWORD 0 3 
UCB7:: eWORD 253 3 
-WORD 1000 
eWORD 0 
-—BLKW 9. $ 
RDRNGS == BITO3 3 
SRDRN:: eWORD 10 3 
-WORD UCB10 : 
-WORD OQ 3 
eWORD 0 3 
UCBI0:: WORD XRING 3 


-WORD 2000 


eating 13:27 PAGE 39 


PCBB+O READ CURRENT (ACTIVE) 
PCBB+2 PHYSICAL ADDRESS 
PCBB+4 
PCBB+6 


; WRITE PHYSICAL ADDRESS 


PCBB+0 WRITE PHYSICAL ADDRESS 
PCBB+2 


READ MULTICAST ADDRESS LIST 
FUNCTION CODE 

UCSB ADDRESS 

PCBB+6 

ENOUGH ROOM FOR 4 ADDRESSES 


WRITE MULTICAST ADDRESS LIST 


; FUNCTION CODE 

; UCBB ADDRESS 

; LENGTH OF LIST = 1 
; PCBB+6 


MULTICAST ADDRESS FOR LOOPBACK 


ROOM FOR THREE MORE ADDRESSES 


READ BOTH THE RCVR AND XMIT RINGS 


; FUNCTION CODE 
; UCBB ADDRESS 
NULL 


; NULL 


UCBB 
3; UCBB+2 


SEQ 38 


N 3 


SEQ 39 
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1995 050114 000000 «WORD 0 3; UCBB+4 

1996 050116 004066 WORD RRING 3; UCBB+6 

1997 050120 002000 «WORD 2000 ; UCBB+10 

1998 050122 000000 WORD ; UCBB+12 

1999 

2000 

2001 3+ 

$008 ; WORNGS == BITO3!BIT00 ; WRITE BOTH THE RCVR AND XMIT RINGS 

2004 

it EVEN 

2007 050124 000011 SWDRN:: . WORD 3; FUNCTION CODE 

2008 050126 050134 -WORD UCB11 ; UCBB ADDRESS 

2009 050130 000000 - WOR 3 NULL 

sng 050132 000000 «WORD 0 3: NULL 

2012 -EVEN 

2013 

2014 050134 UCB11:: 

2015 050134 003772 -WORD xXRING ; TRANSMIT nine BASE ADDRESS 

2016 050136 000 BYTE 0 3 HI BITS OF ANSMIT RING BASE ADDRESS 

2017 050137 095 -BYTE 5 : FIVE WORDS PER RING ENTRY (1 FOR PORT DR 

soi8 050140 000006 -WORD NO.NTR ; EIGHT TRANSMIT DESCRIPTORS IN THE RING 

2020 050142 004066 -WORD RRING ; RECEIVE RING BASE ADDRESS 

2021 050144 000 -BYTE 0 3 HI BITS OF RECEIVE RING BASE ADDRESS 

2022 050145 005 -BYTE 5 $ FIVE WORDS PER RING ENTRY (1 FOR PORT DR 

it 050146 000006 «WORD NO.NTR ; EIGHT RECEIVE DESCRIPTORS IN THE RING 

2025 

2026 

2027 3° 

$056 ; RDCNTS == BITO3!BITO1 ; READ COUNTERS 

2030 

2031 EVEN 

2032 050150 000012 S$RDCN:: «WORD 12 3; FUNCTION 

soez 050152 050160 -WORD UCB12 ; UC8B ADDRESS 

2035 3; DEFAULT COUNT OF COUNTER LIST 

2036 3 40 (OCTAL) 

Soe 050154 000000 «WORD 0 3: NULL 

2039 050156 000100 -WORD 100 3; (4 OF WORDS IN LIST = UPPER BYTE) 

Shey 3; MAX NUMBER VALUE = 32 (DECIMAL) = 

2042 -EVEN 

2043 

2044 050160 UCB13:: 

2045 050160 000000 UCB12:: «WORD 0 ; UCBB 

2046 050162 000000 -WORD 0 ; UCBB+2 

2047 050164 000000 oW 0 3; UCBB+4 

2048 050166 000000 ‘ 0 ; UCBB+6 

2049 050170 000000 -WORD 0 ; UCBB+10 

2050 050172 C00000 -WORD 0 3; UCBB+12 


B 4 
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050174 ; UCBB+14 


COOCCCOCCOOOCOCOCOOOoOoOooOoOoOoOoOooo 
De Be Se Be Be Be Ge Be Se Ve Ve Ve Be Se Be Be Ge Bs Se Se Se Se Be Se Be® 


000000 ; 
050256 000000 ; UCBB+76 


CLKCNTS == BITO3!BITO1!BITOO ; READ AND CLEAR COUNTERS 


050260 000013 $3 -WORD 13 UNCTION 
050262 050160 -WORD UCB13 ; : ces ADDRESS 
DEFAULT COUNT OF COUNTER LIST 


050264 000000 .wORD 0 : NULL 
050266 000040 “WORD 40 : (# OF WORDS IN LIST = UPPER BYTE) 
t MAX NUMBER VALUE = = 32 (DECIMAL) = 


3( FOR UCB13:: SEE UCB 12 ABOVE) 


2+ 


RDMODE == BITO3!B1T02 : READ INTERNAL LINK MODE REGISTER 


EVEN 
050270 000014 $RDMO:: WORD 
050272 000000 - WORD 


: 
OPY OF THE 
ay: THE UNA INTERNAL 
REGISTER 


050274 000000 WORD 
050276 000000 - WORD 








C 4 
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CZUACAO DEUNA I 
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NI 
CZUACA.P11 19- 
2107 


nm 
= 
oO 
co 


WOMODE BITOS!BITO2!BITOO ; WRITE INTERNAL LINK MODE REGISTER 


050300 000015 WDMO: : - WORD ; FUNCTION CODE 
050302 000000 «WORD ; 


050304 000000 - WORD 
050306 000000 - WORD 


RDSTA BITO3!B1T02!B1T01 ; READ PORT SiATUS 


050310 000016 SRDST:: 
050312 000000 STATUS: : 
050314 000000 


FUNCTION CODE 

A LIST OF ERRORS AND STATUS 

LOWER BYTE = # OF MULTICAST ADRS 
UPPORTED BY UNA 


: MAXIMUM S 
: UPPER BYTE = # OF MULTICAST ADRS 


WWIWIRIRINPININININININID 2 2 SO 


WWW 


CURRENTLY SUPPORTED BY UNA 
050316 000000 # OF WORD 


WORD = MAXIMUM S IN 
UCB FOR COUNTERS 
AS CURRENTLY PERCEIVED 
BY THE UNA 


3+ 
: CLRSTA == BITO3!B1T02!B1T01!81T0 
ia 3 READ AND CLEAR WRITE PORT STATUS 


-EVEN 
050320 000017 SCLRS:: ; FUNCTION CODE 
050322 000000 A LIST OF ERRORS AND STATUS 
050324 000000 LOWER BYTE = # OF MULTICAST ADRS 
MAXIMUM SUPPORTED BY UNA 

UPPER BYTE = # OF MULTICAST ADRS 

CURRENTLY SUPPORTED BY UNA 
WORD = MAXIMUM # OF WORDS IN 

UCB FOR COUNTERS 

AS CURRENTLY PERCEIVED 

BY THE UNA 


ee ce ee ee cee ee ee eee eee cee ee ee cee ce ee ce we ce ed ee me ed ed ed ed ed ed ed od od = 2 


050326 000000 


a¢ 
: DMPMEM == BITO4 ; DUMP INTERNAL MEMORY 


“= 
e 


~EVEN 
000020 SDMEM: : 20 ; FUNCTION CODE 
OR ; UCBB ADDRESS 


050336 000000 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ADAUMMVNUMVIUIUIUIE & BEERS RW 


Rd ee eb es ak ot ot ts a et ot et eS 
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2163 ucB20:: 
2164 000000 UCB21:: s; FUNCTION LENGTH (NO OF WORDS TO XFER) 
2165 000000 : HDBB - HOST MEMORY DATA BLOCK ADDRESS 


000000 ; MUST BE ZER 
000000 D ; IDBB = INTERNAL DATA BLOCK BASE ADDRESS 


; LOAD UNA INTERNAL MEMORY 


000021 ae 3 FUNCTION CODE 
0 ; UCBB ADDRESS 


050356 


B1T04!B1T01 ; READ SYSTEM ID 


—D> 
COc@MoMmON~™~ NNN NOOO Oo 
BRASS SaVSAARANASSSIF 


050360 -WORD 22 3 FUNCTION CODE 
050362 a —— ; UCBB ADDRESS 


000033 “WORD 27. ; LENGTH OF ID MESSAGE 
BITO4!BITO1!BITOO ; WRITE SYSTEM ID 


SEUE 


000023 23 : FUNCTION CODE 
050400 ; UCBB ADDRESS 

000000 ORD 0 

000033 wo ; LENGTH OF ID MESSAGE 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ee ee ee cee cee een ee mee ee ee ee ce ee ee cee ee ee ce ce ee ed ee ce ee ee ed ed ed ed od wd et 


BSLESRASLSE 


SOOCooooooooooooooooo 


000000 
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2219 050450 000000 -WORD 0 ;UD8B+50 

2220 050452 000000 -WORD 0 ;UDBB+52 

2221 050454 000000 -WORD 0 ;UDBB+54 

2222 050456 000000 eWORD 0 3; UDBB+56 

2223 050460 000000 WOR 0 ;UDBB+60 

2224 050462 000000 -WORD 0 [UDBB+62 

$552 050464 000 -WORD 0 3; UDBB+64 

2227 050466 000000 UDBB:: .WORD 0 ;UNIBUS DATA BLOCK BASE 

2228 050470 000000 «WORD 0 3t2 

2229 050472 000000 -WORD 0 +4 

2230 050474 000000 -WORD 0 +6 

2231 

2232 3 

2233 ; SUMMARY DATA COUNTERS 

53¢ :, 

2236 050476 000000 S.REC:: .WORD 0 3; MESSAGES RECEIVED 

2237 050500 000000 S.NREC::.WORD 0 3 MESSAGES NOT RECEIVED 

2238 050502 000000 S.LEN:: .WORD 0 3; LENGTH ERRORS 

2239 050504 000000 -COMP::.WORD 0 3; COMPARE E Ss 

2240 050506 000000 S.BYTE::.WORD 0 3; BYTES COMPARED 

$se5 050510 000090 S.XFER::.WORD 0 3; BYTES TRANSFERED 

2243 : 

$see 3 DEUNA DRIVER AND ASSOCIATED SUBROUTINES DATA 

2246 

2247 050512 000000 FATFLG::.WORD 0 3; FATAL ERROR + * 

2248 050514 000000 PCEFLG::.WORD 0 3; PORT COMMAND ERR LAG 

2249 050516 000000 NIRCNT::.WORD 0 3; UNA RECIEVE MESSAGE, COUNTER 

2250 050520 000000 XFLAG:: .WORD 0 3; FRAME TRANSMITTED FLAG 

2251 050522 000000 DNIFLG::. 0 3; DONE INTERRUPT FLAG 

2252 050524 000000 RBFCNT::.WORD 0 3; RECIEVE BUFFERS LOST COUNTER 

2253 050526 000000 BCOUNT::.WORD 0 3; UNEXPLAINED INTERRUPTS COUNTER 

2254 050530 000000 ERRFLG::.WORD 0 ; FLA 

2255 050532 000000 eWORD 0 3; TIME OUT COUNTER 

2256 050534 000000 RETRYS::.WORD 0 : COUNTER FOR FRAMES FAILING DUE TO RTRY ERROR 

2257 050536 000000 RCVERR::.WORD 0 3 TS NO. OF BUFFERS RECEIVED WITH ERROR 

2258 050540 000000 RCVBUF::.WORD 0 : TS NO. OF GOOD BUFFERS 

2259 050542 000000 eWORD OQ 3; USED IN BLDBUF SUBROUTINE AS COUN 

2260 050544 000220 PROTOO::.WORD 000220 ; PROTOCALL TYPE FOR L CK MESSAGES 

22671 050546 001140 PROTO2::.WORD 001140 3; PROTOCALL TYPE FOR REMOTE CONSOLE 

2262 050550 000000 -WORD 0 ; N XMIT AS TEMPORARY STORAGE 

2263 050552 000 TEMP1:: WOR 0 3; USED FOR TEMPORARY STORAGE 

2 050554 000000 TEMP2 WORD 0 ; reat a TEMPORARY STORAGE 

2265 050556 000000 TEMP3:: .WORD 0 3; USED FOR TEMPORARY STORAGE 

2 050560 000000 XFE -WORD 0 3 STORES "BYTES TRANSFERED* 

2267 050562 000000 CPYCNT 0 ; "NO. OF COPIES’ COUNTER FOR LOOPING 

2268 564 000 PCCALL::.WORD 0 3; STORES PC OF CALLING ROUTINE FOR ERROR REPORTS 

2269 050566 000000 BUFLEN::.WORD 0 3; STORES TRANSMIT BUFFER LENGTH 

2270 050570 000000 CMPBUF::.WORD 0 3; STORES LOCATION OF DATAS our ree TO BE COMPARED 

$$) 050572 000050 PATCH:: .BLKW 40. : 40 WORDS FOR PROGRAM PATC 

2273 


2274 + REQUEST ID MESSAGE FORMAT 
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; BYTE COUNT (=3 FOR REQUEST ID) 
; FUNCTION CODE FOR REQUEST ID 
051115 ; RECIEPT NUMBER 


: LOOP DIRECT MESSAGE 


~EVEN 


050720 LOPDIR:: 
; SKIP_COUNT 
wo ; FUNCTION = FORWARD DATA 
000000 000000 ; anes NODE ADDR ” 


. FUNCTION = REPLY 
050734 000000 000000 WO : LOCAL NODE ADDRESS 


: TRANSMIT ASSIST MESSAGE 


050742 TASIST:: 

; SKIP COUNT 

; FUNCTION = FORWARD DATA 
; TRANSMIT ASSIST ADDRESS 
; FUNCTION = FORWARD DATA 
; LOCAL NODE ADDRESS 

; FUNCTION = REPLY 

; LOCAL NODE ADDRESS 


000000 000000 
000000 000000 
000000 000000 


0 
2 
0 
2 
0 
1 
0 


> RECIEVE ASSIST MESSAGE 


RASIST:: 
000000 - WORD 
000002 WORD 
it itt 000000 000000 


002 
000000 000000 000000 
000001 

000000 000000 000000 


; re COUNT 

; FUNCTION = FORWARD DATA 
; Mopse aU ASSIST ADDRESS 
; FUNCTION = FORWARD DATA 
; o’ NODE ADDRESS 

; FUNCTI PLY 

; LOCAL NODE ADDRESS 


o-ONONO 


Tt ot ot td ot = 
FWN OC OBNOULWN—O 


> FULL ASSIST MESSAGE 


FASIST:: 
000000 - WORD ; SKIP 


000000 000000 rat 
000000 000000 000000 WO ; ASSIST NODE ADDRESS 


Morr 


COUNT 
CTION = ony DATA 
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050 000002 -WORD 2 ; FUNCTION = FORWARD DATA 
052 000000 000000 000000 -WORD 0,0,0 ; LOCAL NODE ADDRESS 
060 000001 WORD 1 ; FUNCTION = REPLY 

062 000000 000000 000000 -WORD 0,0,0 ; LOCAL NODE ADDRESS 


-SBTTL COMMAND LINE ACTION TREE 
sSAMPLE CLI TREE NODE (ALWAYS AT LEAST 


; ! ACTION ! CHAR CODE ' 


; ! MISS DISPLACEMENT ! *MISS'’ ARGUMENT DEF INED 
“ASCII"’ ARGUMENT DEFINED 
“ASCII"* ARGUMENT DEFINED 


FIRST KEYWORD 
CLI CLISPA,0, wits ;SKIP ANY LEADING SPACES 

N10$: L <'?>, HELP,N12$ iIS THE FIRST NON-SP CHAR. A a as 
CLIEXI,0 IF YES DO Mat AND EXIT 

N12$: CLISTR,HELP,N14$,<°HELP'> ELSE IS FIRST Nees 
CLIEXI, ‘0 IF YES DO ‘wee AND, EXIT 

N14$: ISTR NOTNUF .NI6S,.<" NODE ‘> ELSE EN FIRST aoe A ‘NODE’ 

N16$: 


BR.O,N8 $ 

STR OD .NI8S, <*BUILD'> ZeLSE IS FIRST WORD A ‘BUILD*’ 
N18$: 
N20$: 


EERE 


x1,0 
TR, NOTNUF ,N20$,<"RUN’> iELSE 


.0,N180$ : YES, BR N180 

ELSE IRST CHAR. A‘'s" 

: IF S REST OF WORD ‘HOw’ 
F WORD “UMMARY" 


al el ond ol 
am 


DanaGrsagugannmanusavgunas 


SeTee 


e 


A SUMRRY .N23S<* UPRARY'> 
R;CSAVE,N24$,<°AVE'> 


511 
511 
511 
511 
511 
511 
511 
511 
511 
511 
512 
512 
512 
2 


N22$: 
N23$: 
N24$: 
N25$: 
N26$: 
N28$: 
N29$: 
N30$: 
N31$: 


00 
0 
1 
2 
3 
4 
5 
5 
7 
7 
0 
1 
1 
3 


0 
0 2 
051116 
0 0 
051134 
0 0 
051154 
051156 
0 0 
051174 
051200 
051212 
051216 
051234 


NMNMPoNoNononononononorys 
SSESSSE 


Ww 
N“N 
_ 
oo 
wmviwi 
— 
nmrr 
VIVIWG 
moo 


0 F 
NOTNUF ,N26$.<"CLEAR'> : 


mmmuomn 


D=— De 
o 


AP N120$ 
NOTNUF ,N28$,<"IDENTIFY"> : 


NOTNUF .N29S, <*MESSAGE *> 


SONMAQNAS 


N1608 | 
IRST WORD “UNSAVE" 
0 Nel 0$ ee 
st "oR “EXIT 


, 

BR,O.N 

SrA CUNSAY, N30$,<"UNSAVE '> 

crf, enar’ N31$,<°EXIT'> 

TR NOTNUE .N32$,<"FUNCTION'> EL 


Soooooocoooooeo 
PPA AIA IAAT 


SOSRRENI NNO 


SrOr 


ee ee i i i i os 
AOAAOOOOOOOAOAOAOAIOOAAQAOAIOOOAOO 


SPE ECECE CE EC le reerererrecreccce 
Oe Ome me tg Bang fame bee fag Dame Dmg ng Peg bang mee Peng mg Pag Bane ng Fmd Same femme bmg my Od ms 
faintalninialaiolalalelalalalalalalalalallalalalalala) 


rMonononononorys 
Serene 


S 
w 
a 
* 
wm 
* 
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051430 N32$: CLI CLIERR,O sOTHERWISE “ILL CMD’, 
051432 CLI CLIEXI.0 : «EXIT 


SECOND KEYWORD (ADR/TYPE) FOR NODE COMMAND 


051434 > i CLISPA,0,N81$ :SKIP ANY LEADING SPACES 
051440 : CLIBR, CSAVR4 N82$ TSAVE STRING POINTER LOCATION 
051444 : CLIBR.NODE ,N90S SPARSE THROUGH ADDRESS, CHECK 

[FOR TARGET OR ASSIST, DO NODE 
051450 : CLIBIF .0.N32$ STAKE ERROR BRANCH IF “ERROR EXISTS 
051454 : CLIEXI.0 EXIT 


SECOND KEYWORD FOR SHOW COMMAND 


051456 N100$: CLISPA,0,N101$ zSKIP LEADING SPACES 
N101$: (CLI CLISTR, CODE N102$.<"NODES'> :1S NEXT WORD “ 
N102$: CLISTR,CSHMSG,N104$,<"MESSAGE'> : 


N11 : IF 
N104$: CLISTR, CCNTR,N106$,<" COUNTERS *> 3ELSE IS NEXT 
CL LIBR.0. N110$ 3 GO TO COUNTERS ROU 
N106$: cLIBR 0;N32$ ELSE ” ‘ILL COMMAND'’ 
N110$: CLI 1EX1,0 EXIT 


SECOND KEYWORD FOR CLEAR COMMAND 


N1208: CLISPA.O,NI21S SKIP LEADING SPACES 
N121$: CLISTR,O.N130$.<"NODE "> :1S NEXT WORD “NODE 

CLISPA‘O-N N122 IF ves SKIP SPACES 5 
N1228: £122. CSAURG NS2S LOOK FOR naasran kt ILL COM 


N1 NEXT 
CLISTR, CNODAL .N124$,<°LL"> IF yes IS WORD *‘ALL*’ 
IF YES, SET FLAG.BR NI35S 


TO ¢LR. 
ELSE, EXTRACT ADDRESS 
” N135$ SET FLAG, BR N135$ 
CLISTReCCLMSG.N1 32S, <*MESSAGE'> ZELSE 1S NEXT WORD.‘ MESSAGE 
LIBR,O,N135$ If YES. SET FLAG, 

CLISTR, CCLSUM.N134$,<* SUMMARY "> ELSE IS NEXT WOR 


CL 


CLIBR,O,N135$ 
CLIERR,O EL 
CLIEXI.0 “EX 


;ADDRESS FOR IDENTIFY COMMAND 
cul CLISPA,0,N141$ i SKIP LEADING SPACES 
CLI CLIBR, CSAVR4 N142$ AVE POINTER TO FIRST CHAR. OF ADDRESS 
Ctl CLIALN,0,N32 <eneeK THAT ADDRESS HAS LEGAL CHAR.S 
CLI CLIBR CEXADR, N143$ [GET ADDRESS 
Cul CLIEXI,I [D0 “IDENTIFY, EXIT 

;REMAINING COMMAND LINE FOR MESSAGE COMMAND 


N160$: CLI CLISPA,0,N161$ 3SKIP LEADING SPACES 


falalalalalalalaialalalala! 
reer ererererereeee 
oe bay Omg Dame Pans femme beg fame bong bmg feng bem fe 


IF YES, CLEAR TABLE AND EXIT 
it “ILL COMMAND"’, 


~ 
- 
Lund 
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051752 N161$: <'/>,0,N ; AR. *'/*', CONT., ELSE BR N178$ 
cLIstR: “. M1708,<* TYPE » ; “WORD ‘TYPE’ 


oN 
fListe’ CALPHA,N162$,<"ALPHA'> 
CLIBR,0,N168$ 
CLISTR,CONES,N163$,<"ONES "> 
EtTBR. oN 
CLISTR, CZEROS,N164$,<°ZERCS "> 
CLIBR,O,N1 
CLISTR,CIALT,N165$,<"1ALT'> 
CLI8R,0,N1 
CLISTR,COALT,N166$,<'OALT*> 
CLIBR,O.N 
CLISTR,CCCITT,N167$,<"CCITT’> 


o 
Cc 
— 


N162$: 
N163$: 
N164$: 
N165$: 
N166$: 
N167$: 


N168$: 


FOR MORE INPUT 
N170$: 


TYPE ,N 
R,0,N175$,<'SIZE"> 

<"=>,0,N32 

CLIDEC.CSIZE,N32$ 

CLIBR,.0,N160$ 

cLastR.6 N32$,<"COPIES'> 


=>,0,N 
CLIDEC, CCPYS,N32$ 
CLIBR,0,N160$ 
N178$: CLIBR.O.N32$ 
:SECOND KEYWORD FOR RUN COMMAND 


N180$: CLISPA,0,N181$ 3 SKIP LEADING ayes 
1818: CLISTR, CLUPPR,N182$,< *LOOPPAIR"> 


CLI 5 
CLISTR,CRNALL,N183$,<"ALL "> 
CLIBR,O,N185$_ 

CLISTR, CDIR,N184$,<"DIRECT "> 


CLIBR,O,N1 
CLISTR, CPATRN.: N32$,<'PATTERN'> 
CLIBR, COEFL 6 

ISTR.O oe <'/PASS'> 


ch! 
N 
CLIDECO,NS2S ASS COUNT 
052376 : CLIEXI ,CRUN UN TEST AND EXIT 


zREMAINING COMMAND LINE FOR FUNCTION COMMAND 


Opes N200$: CLI CLISPA,0,N201$ : SKIP SPACES 
N201$: CLI CLIOCT.CFUNCT,N32$ : GET OCTAL NUMBER AND DO FUNCT 
CLI CLIEXI;0 ; EXIT 


zREMAINING COMMAND LINE FOR UNSAVE COMMAND 


N210$: CLI CLISPA,0,N212$ :SKIP SPACES 
N212$: (CLI <*/>,0.NO15$ SPARSE THROUGH '/° 

CL! CLIEXI, CUNSVF SSAVE POINTER TO FILE NAME 
N215$: (CLI CLIEXI.O 


N175$: 


AOOOOOAOAOOAIOAOOOOOOHOIOOAOOoOO 
ePrerrerererereerrrcerrecrececce 
me a eg tren bene Deen theme Bot ees es bene fe Res beng mea beg eng fend fey Peng Bey bee bt tg 


fata) 
-- 
toy beng 
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2499 

2500 ee 

2501 ; THE ERRTBL MACRO IS REQUIRED IF YOU INTEND TO REPORT ERROR 

2502 3 THE “€ O. THE ERRTBL MACRO EXPANDS INT THAT 

2503 3 ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 

2504 : OR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS 0 $s 

2505 : BLOCK. THERE MUST ~ ERRTBL IN ANY ee oat THIS SECTION 

2506 ; ONAL. REMOVE IF IT IF YOU_ARE NOT GOING TO USE THE ERROR 

S208 : on ey 18 ton Ren meth MACRO TO REFLECT THIS SECTION'S DEL- 

$200 ; S UURRUREEEGNXELREEERNE9 YELELERELELE2 IIE EEEEEEREEE EEE 2 23 LEEELLELE LES AZEELEELE EEE 

2511 052426 ERRTBL 

2512 052426 LSERRTBL: : 

2513 052426 000000 ERRTYP:: -WORD 0 

2514 052430 000000 ERRNBR: : WORD 0 

2515 052432 000000 ERRMSG: : WORD 0 

2516 052434 000000 ERRBLK: : -WORD 0 
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~SBTTL GLOBAL TEXT SECTION 
p++ 
; THE GLOBAL Ly # ati CONTAINS FORMAT STATEMENTS, 
3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; ;_MORE THAN ONE Test. 
052436 000 044516 037105 éLISPM: eASCIZ =<12><15>/NIE>/ NIE PROMPT 


022516 037501 CLIERM: .ASCIZ /2NZA?ILL CMD-BAD SYNTAX?/ 


054101 
044477 : .ASCIZ /2NZA2INCOMPLETE COMMAND?/ 
046120 
047503 
047101 037504 
022516 037501 CLINBG: .ASCIZ /%ZNZA?NUMBER TOO B1G?/ 
1115 Ny: 
041077 CLIBRX: .ASCIZ /%NZA?BAD RADIX?/ 
042101 


LDRESP: .ASCIZ /ZNZANODE 212A HAS RESPONDED./ 


RECERR: . /ZNZAPACKET RECEIVED WITH UNA ERROR./ 


RTRYER: .ASCIZ /%ZNZATRANSMISSION ABORTED =~ EXCESSIVE COLLISIONS./ 


5 
5 
5 
4 
5 
8 
549 
50 
51 
52 
53 
54 
55 
56 
57 
58 
559 
0 
1 
2 
3 


w 
AAO 


BLDMSG: . /%NZD2%A NODE ADDRESSES ADDED, ELAPSED TIME: %D2%A MINUTE./ 


053036 040445 046440 047111 





L 4 


CZUACAO DEUNA NI EXERCISE MACY11 30A(1052) 20-JUL~83 13:27 PAGE 51 
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052125 
ILADMS: .ASCII /%ZNZACANNOT USE BROADCAST ADDRESS (FF<FF<FF<FF<FF<FF)/ 


ILADM1: /ZNZAFOR LOOP TESTING. ADDRESS WAS NOT ADDED TO NODE TABLE.2N/ 


CADRER: .ASCIZ /%NZAPLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 


044507 051524 
040445 053524 CADERR: /ENZATWELVE HEX=DIGITS REQUIRED FOR ADDRESS./ 


042522 051523 
040445 020101 NULSTR: /%NZAA ZERO LENGTH STRING WAS ENTERED./ 


051105 042105 

051445 022462 NODADR: .ASCIZ /%N%S2%T/ 
032061 040445 LOGNAM: .ASCIZ /%S14Z%AN%D2/ 
031104 000 

030523 022464 NODTYP: .ASCIZ /%S142%T/ 


040445 047516 NITBHDR: .ASCIZ \%NZANODE PHYSICAL ADDRESS NODE LOGICAL NAME TYPE CA/T)\ 


02 
047516 042504 046040 


NS "1 
DWRAOSNWOVIAO 


Mu 





Mm 4 
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053526 043517 046101 
0535 


052057 
044124 : .ASCIZ /2NZATHE 212A TABLE IS FILLED TO CAPACITY!/ 


/RNZATHE 2TZA TABLE IS CURRENTLY EMPTY! / 


052120 


000105 NOD: /NODE/ 
046515 051101 SUMM: / SUMMARY / 


040445 044124 CLRMSG: /ENZATHE MESSAGE PARAMETERS HAVE BEEN RESET TO:/ 


CPYLMT: .ASCIZ /%N%ZATHE NUMBER OF COPIES MUST BE BETWEEN 1 AND 255./ 


SIZLMT: /RNZATHE MESSAGE SIZE CDATA] MUST BE BETWEEN 32 AND 1466 BYTES./ 


032061 
052131 


044124 NOCMPR: .ASCIZ /2ZNZATHE ADDRESS MARKED FOR DELETION WAS NOT IN THE TABLE./ 


020116 
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054224 040527 eh 


~ 

So 
os 
oo 


/%NZAAN UNBOUNDED "‘OPERATOR INPUT" STRING WAS ENTERED./ 


ADRDEL: . /%NZATHE ADDRESS HAS BEEN DELETED FROM THE NODE TABLE./ 


> 
eas oth ees a 
USF FAKCOWO—-OoOnN— 


LOGDEL: .ASCIZ /%NZANODE N%D1%A HAS BEEN DELETED FROM THE NODE TABLE./ 


/ZNZATHE %T%A TABLE HAS BEEN CLEARED./ 


042522 027104 
022516 052101 UNSMSG: .ASCIZ /%NZATHE NODE TABLE HAS GEEN 2T/ 


047105 022440 
“042526 027104 SAVED: . /SAVED./ 
047524 RESTOR: . /RESTORED./ 
40) MSGPRM: . /4NZATHE CURRENT MESSAGE PARAMETERS ARE :/ 


000 
054711 MSG1:  .ASCIZ /%NZATHE COLLECTION OF ALL NODE ADDRESSES COULD TAKE AS LONG AS 40 MINUT 
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CZUACA.P11 19=JUL= : GLOBAL TEXT SECTION 


054716 


Ssseeee 
rmnrnuw 
oo 
ono 
RUF 


-ASCIZ /%NZAHOWEVER, IF NO NEW NODES ARE ADDED TO THE TABLE FOR A 10 MINUTE PER 


044522 
052101 eASCIZ /ZNZATHE COLLECTION WILL STOP.2N/ 


027120 
054501 /ZNZAYOU ENTERED 212A NODE: %T/ 


020972 052045 
022516 052101 -ASCIZ /%ZNZATHE SPECIFIED ADDRESS IS: 2T/ 


/ENZATYPE=2T%A,S1ZE=%042A, COPIES=%203/ 


036523 0427045 000063 ~ 
047045 042440 HDMSG1: /%iNZA ETHERNET DEFAULT ADDRESS (HEX): &T/ 


044050 054105 





CZUACAO DEUNA NI EXERCIS 


CZUACA.P11 


ae ae aE aS Ses 


0 
056052 


056060 
056066 


19=JUL=83 


041101 


047045 
046515 


No 
MUNOMNOUW 


041101 
040445 
02 


042514 


040445 
047101 


AGNOSTIC 


046102 
020101 


046102 
020101 


000104 


047503 
020104 


MACY11 
GLOBAL 


HDMSG2: 


HOMSG3: 


HDMSG4: 


HDMSGS5: 


HDMSG6: 


HDMSG7: 


HDMSG8: 


HDMSG9: 


HELP1: 


TE 


¢ 5 


30A(1052) 20-JUL=-83 13:27 PAGE 55 
XT SECTION 


eASCIZ /%N2%A ROM MICROCODE VERSION (DECIMAL): %D3/ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


/EN2%A SWITCH PACK SET FOR :/ 


/ENZA 


/ENTA 


/2NZA 


/ENZA 


/ENZA 


/ENZA 


\ZNZACOMMAND SUMMARY FOR THE NETWORK INTERCONNECT EXERCISER (NIE)\ 


REMOTE AND POWER UP BOOT ENABLED/ 


REMOTE BOOT ENABLED WITH ROM/ 


REMOTE BOOT ENABLED/ 


REMOTE BOOT DISABLED/ 


SELF TEST LOOP ENABLED/ 


SELF TEST LOOP DISABLED/ 


SEQ 54 


dD 5 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL=-83 13:27 PAGE 56 
CZUACA.P11 19=JUL=83 17:1 GLOBAL TEXT SECTION 


056074 052523 


HELP2: .ASCIZ \2%NZACIT IS ONLY NECESSARY TO TYPE THE LETTERS IN BRACKETS)\ 


HELP3: \ZN2ZACHIELP OR ? TYPES THIS HELP TEXT.\ 


HELP4: \ZN2%ACEIXIT RETURN TO THE SUPERVISOR.\ 


HELPS: \ZN2%ACSHIOW CNIODES PRINTS INFORMATION IN CURRENT NODE TABLE.\ 


HELP6: \ZN2RACSHIOW CMJESSAGE PRINTS THE SELECTED MESSAGE TYPE, SIZE AND COP 


So 

wis 
oooo 
—= 

~ 

N 


041440 





CZUACAO DEUNA NI EXER 


CZUACA.P11 


057270 


19=JUL= 


047045 


SER DIAGNOSTIC 
17:13 

000 
031116 040445 
056510 053517 
056503 052517 
051105 020123 
051120 047111 
052040 042510 
053517 046040 
046105 041440 
052116 051105 
043117 052040 
044040 051517 
047516 042504 
022462 055501 
047125 055440 
047517 050120 
027522 040520 
047075 020116 
052522 051516 
042510 046040 
050120 044501 
042524 052123 
022462 055501 
047125 055440 
046114 050057 
036523 047116 
051040 047125 
044124 020105 
042504 052055 
047516 042504 
051505 027124 
031116 040445 
052535 020116 
044535 042522 
050057 051501 
047116 026440 
047125 020123 
020105 047514 
042040 051111 
020124 042524 
000056 
022462 055501 
047125 055440 
052101 042524 
050057 051501 
047116 026440 
047125 020123 
020105 042515 
043501 020105 
052124 051105 
042524 052123 
022462 055501 


MACY11 30A(1052) 


E 5 
20-JUL-83 13:27 PAGE 57 


SEQ 56 


GLOBAL TEXT SECTION 


HELP7?: .ASCIZ 


HELP8: .ASCIZ 


HELP9: .ASCIZ 


HELP10: .ASCIZ 


HELP11: .ASCIZ 


HELP12: .ASCIZ 


\ZN2%ACSHJOW CCIJOUNTERS = PRINTS THE LOW LEVEL COUNTERS OF THE HOST NODE 


\ZN2ZACRIUN CLIOOPPAIR/PASS=NN = RUNS THE LOOPPAIR TEST.\ 


\ZN2ZACRIUN CAJLL/PASS=NN = RUNS THE NODE-TO-NODE TEST.\ 


\ZN2ZACRIUN CDOJIRECT/PASS=NN = RUNS THE LOOP DIRECT TEST.\ 


\ZN2%ACRIUN CPJATTERN/PASS=NN = RUNS THE MESSAGE PATTERN TEST.\ 


\ZN2ZACMIESSAGE/CTIYPE=A/CSJIZE=N/CCIOPIES=M = ALLOWS THE OPERATOR TO\ 


CZUACAO DEUNA NI EXERCIS 


CZUACA.P11 


057276 
304 


057765 


19=JUL=83 
05651 


NN | NWO 


044523 
022462 


052114 
031116 


AGNOSTIC 


040523 


020122 
046501 


042524 
055501 


047516 
052101 


052123 
055501 


027123 
040445 


, # 


MACY11 30A(1052) 20-JUL-83 13:27 PAGE 58 
GLOBAL TEXT SECTION 


HELP13: .ASCIZ \%NZAMODIFY THE DEFAULT MESSAGE TYPE, SIZE AND COPY PARAMETERS.\ 


HELP14: .ASCIZ \%N2ZACNJODE ADR/TYPE = ENTERS A PHYSICAL ADDRESS INTO THE NODE\ 


HELP15: .ASCIZ \%NZATABLE. THE TYPE CAN BE EITHER CTJARGET (DEFAULT) OR CAJSSIST.\ 


HELP16: .ASCIZ \%N2%ACSUJMMARY = PRINTS A SUMMARY OF THE TEST RESULTS.\ 


HELP17: .ASCIZ \%N2%ACBJUILD = BUILDS A TABLE OF REMOTE NODE PHYSICAL ADDRESSES BY\ 


SEQ 57 


6 5 


SEQ 58 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 59 
CZ2UACA.P11 19=JUL=83 17:13 GLOBAL TEXT SECTION 

3021 057772 041133 052535 046111 
3022 060000 020104 020055 052502 
3023 06 046111 051504 040440 
3024 060014 052040 041101 042514 
3025 060022 047440 020106 042522 
3026 060030 047 042524 047040 
3027 0036 042117 020105 044120 
3028 0044 051531 041511 046101 
3029 060052 040440 042104 042522 
3030 051523 051505 041040 
3031 06 000131 
3032 060070 047045 040445 044514 HELP18: .ASCIZ \2NZALISTENING TO ID MESSAGES ON THE NI.\ 
3033 060076 052123 047105 047111 
3034 060104 020107 047524 044440 
3035 060112 020104 042515 051523 
30 060120 043501 051505 047440 
3037 060126 020116 044124 020105 
3038 0134 0445 000056 

39 060140 047 022462 055501 HELP19: .ASCIZ \%N2ZACCILEAR CNJODE/ADR - REMOVES THE NODE SPECIFIED BY EITHER ADR\ 
3040 060146 056503 042514 051101 
3041 060154 055440 056516 042117 
3042 060162 027505 042101 020122 

3 170 020055 042522 047515 


3048 
3049 060234 vas 040440 051104 


3051 060243 045 Oreele 4 HELP20: .ASCIZ \%NZAOR NODE LOGICAL NAME FROM THE NODE TABLE.\ 


046040 

3054 060264 046101 047040 046501 
3055 060272 020105 051106 046517 
3056 0 052040 042510 047040 
3057 060306 042117 020105 040524 
3058 060314 046102 027105 000 
3059 060321 045 031116 040445 HELP21: .ASCIZ \%N2%ACCILEAR CNJODE/CALIL = CLEARS THE NODE TABLE.\ 
3 060326 041533 046135 040505 

1 060334 020122 047133 047535 
3062 060342 0425 055457 046101 
3063 060350 046135 026440 041440 
3064 060356 042514 051101 020123 
3065 060364 044124 020105 047516 
3066 960372 042504 052040 041101 
3067 60400 042514 000056 

060404 047045 022462 055501 HELP22: .ASCIZ \%N2¥ACCILEAR CMJESSAGE = SETS ALL MESSAGE PARAMETERS TO DEFAULT.\ 

3069 060412 056503 042514 051101 
3070 060420 055440 056515 051505 
3071 060426 040523 042507 026440 
3072 060434 051440 052105 020123 
3073 060442 046101 020114 042515 
3074 060450 051523 043501 020105 
3075 060456 040520 040522 042515 
3076 060464 042524 051522 052040 





H 5 
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CZUACA.P11 19=JUL-83 17: GLOBAL TEXT SECTION 


020117 
25 
HELP23. .ASCIZ \%N2%ACCILEAR CSJUMMARY = CLEARS THE TABLE OF SUMMARY TEST DATA.\ 


So 
mow 
S 


SoOUWNWw 
Sonmwvoor 
oon 
Wr OUWw 
-WLouuw 


UAW OA "OW "WU & 
MAREE 


HELP24: .ASCIZ \%N2ZACI IDENTIFY ADR = USES THE REQUEST ID FUNCTION TO IDENTIFY A REMOTE 


HELP25: .ASCIZ \%N2%ACSAJVE = SAVES THE CONTENTS OF THE NODE TABLE.\ 


an 


HELP26: .ASCIZ \%N2ZACUINSAVE = REPLACES THE CURRENT NODE TABLE WITH THE SAVED ONE.\ 


RAR RE 


Oy) 
ORR 


eASCIZ \2ZNZS8ZANOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI.\ 


03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
es 
25 
26 
27 
28 
29 
30 
31 
32 


1 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


NOUS Swlot— 
Fwo- Sw NW 
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CZUACA.P11 19=JUL=83 GLOBAL TEXT SECTION 


3133 


eer e 
ENSSURS 


HELP28: .ASCIZ \%NZS8%ZA 2) PASS COUNT iS A DECIMAL NUMBER BETWEEN 1 AND 65534. A 


Fe 
ooo oooo 


<sebehee MULES 


MHPTernoros 
wus 
oon 


~“ 
N 


On" 
NMS SOO-OW -—ONN 


onm—-0O—"0 
VMUI=AWOOOe OoOnow 
~ ~m 

We BNE LO 
Nmo—oOlku 


St oo OS SS YS SS 
w 
o— 
St 


— 


Bwances 
Seeeess 
MVS 


046125 
oeenle HELP29: .ASCIZ \%NZS8%A VALUE OF 1 IS ASSUMED.\ 


SSSSSSSSSSSSSSESSSEE 


BREESE 
EI AES 3 


& 
-_—— 
= 
~m 


HELP30: .ASCIZ \%NZS8%A SPECIFYING -1 CAUSES THE TEST TO BE RUN INDEFINATELY.\ 


o AAAAADODO VIM & BEE EE EEE PW 
— 
Oia = 
MEO 


RRKREERFESREESE 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


047111 
027131 


a a eh ed a a 


EVEN 
: TEST MESSAGES AND ARGUMENTS 


Sears PASABT: .ASCIZ /%N%A PASS ABORTED!/ 
020504 


022524 TSTMS1: .ASCIZ /2ZNZTZA TEST == / 


Nm 
oa 


TSTMS2: .ASCIZ /2NZTZA NODE: 2T/ 


QVSVUSFAS 
S2FSVSaxk 


z 


TSTMS3: .ASCIZ /2%T%A ERROR/ 
047045 TSTMS4: .ASCIZ /2NZTZA NODE: ZTRTZA NODE: 27/ 


SRRSRAVAS Jao 
SESRESSSSSEEE 


oo 
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3189 061632 047040 
3190 061640 022440 
020101 
020072 


SAL 
EO 
o o9c°o 


eASCIZ /%A = RESPONSE OK/ 


4 
Rm =6ASONO 


OFNU WMS] NOO-COWNUWUOWNUOL SU 


eASCIZ /2NZA ~ RECEIVE ASSIST = RESPONSE OK/ 


gessseees 
RESSERRS 
g 


-—oO™n 
Coons 


uw WAWAIWG 
sess 


NNN NO 
WnN— 
~m 


eASCIZ /2NZA = TRANSMIT ASSIST = RESPONSE OK/ 


NNN 
PRNNINVR RUE 
SUWN=ASUWNN 


020105 


022516 eASCIZ /2ZNZA = FULL ASSIST = RESPONSE OK/ 


MESPAT: . /ENZAERROR OCCURED WITH 2TZA MESSAGE TYPE/ 


0 

2 

5 

1 

1 

4 

1 

0 

644 

52 

1 

0 

1 

1 

2 

2 

0 

151 
0104 

4 


MESPA1: .ASCIZ /%A DATA PATTERN: 2T/ 
020072 
047040 ALLNOD: .ASCIZ /ALL NODE/ 
LUPAIR: .ASCIZ /LOOPPAIR/ 
DIRECT: .ASCIZ /LOOP DIRECT/ 
044523 
040522 


FULAST: .ASCIZ /FULL ASSIST/ 


TRAST: .ASCIZ /TRANSMIT ASSIST/ 


RECAST: .ASCIZ /RECEIVE ASSIST/ 


Wt UF WM uit 
s— WSO ws 


PATTRN: .ASCIZ /MESSAGE PATTERN/ 


oo oo Ooo OO 
NRO NMOSoCO— Ww 


000116 








CZUACAO_DEUNA NI EXERCIS 


CZUACA.P11 


19=JUL=83 


047516 
047520 


5 
051511 
062372 


046101 
047117 


N“ 
VI 
o-o— 


S 


Vebw WM 
N= SPO 


o 
Oo SVN Wil 


047101 


o-Oo oor 


ou SO WES WUUIO 


040445 
046103 


020107 


020101 
051101 
000 
000101 
00 
051517 
oor 
052124 
020122 
000 
040515 
0421146 


000127 
043501 


000 
051101 
042525 
043501 


052116 
040520 
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GLOBAL TEXT SECTION 


NORESP: .ASCIZ /NO RESPONSE/ 
RETRY: .ASCIZ /EXCESSIVE COLLISION/ 


SEQ 62 


LENGTH: .ASCIZ /LENGTH/ 
COMPAR: .ASCIZ /DATA COMPARISON/ 


-EVEN 
MSGTYO: .ASCIZ /ALPHA/ MESSAGE TYPES 
MSGTY1: .ASCIZ /ONES/ 
MSGTY2: .ASCIZ /ZEROS/ 
MSGTY3: .ASCIZ /1ALT/ 
MSGTY4: .ASCIZ /OALT/ 
MSGTY5: .ASCIZ /CCITT/ 
MSGTY6: .ASCIZ /OPER SEL/ 


CMDTY1: .ASCIZ /EXIT/ COMMAND TYPES 
CMDTY2: .ASCIZ /SUMMARY/ 


CMDTY3: .ASCIZ /BUILD/ 
CMDTY4: .ASCIZ /SHOW/ 
CMDTY5: .ASCIZ /RUN/ 
CMDTY6: .ASCIZ /MESSAGE/ 


CMDTY7: .ASCIZ /NODE/ 
CMDTY8: .ASCIZ /CLEAR/ 


CMDTY9: .ASCIZ /REQUEST ID/ 


ARGTY1: .ASCIZ /NODES/ 
ARGTY2: .ASCIZ /MESSAGES/ 


ARGTY3: .ASCIZ /COUNTERS/ 
ARGTY4: .ASCIZ /LOOPPAIR/ 


ARGTYS: .ASCIZ /ALL/ 
ARGTY6: .ASCIZ / ASSIST/ 


ARGTY7: .ASCIZ /TARGET/ 


~EVEN 
NOCLK: .ASCIZ /%NZABAD CLOCK = PROGRAM WILL HANG ON ‘‘TIMEQUT’*!!/ 


ARGUMENT TYPES 


‘L$ 


CZUACAO DEUNA NI EXERCIS AGNOSTIC MACY11 30A(105 © cena 13:27 PAGE 64 


2) 
CZUACA.P11 19=JUL=83 GLOBAL TEXT SECTI 
062666 021040 042515 
062674 052517 020441 
062702 


: UNA COUNTER INFORMATION MESSAGES 


032523 CNTROO: .ASCIZ /%ZNZSSZACONTENTS OF NODE 212A INTERNAL COUNTERS:/ 


051105 035123 
Ostiie 040445 CNTRO1: .ASCIZ /%N2ZASECONDS SINCE LAST ZEROED:%S15%25/ 


CNTRO2: .ASCIZ /2NZAPACKETS RECEIVED: %S192T/ 
CNTROS: .ASCIZ /2NZAMULTICAST PACKETS RECEIVED: %S92%T/ 


034523 


Orsele CNTRO4: .ASCIZ /%NZAPACKETS REC*D WITH ERROR = BITMAP:%S9%83/ 


MNNYLuEOM WS 
i= 


CNTROS: .ASCIZ /%NZAPACKETS RECEIVED WITH ERROR:%S13225/ 


CNTRO6: /ENZADATA BYTES RECEIVED:%S162T/ 


0 
045 
0 
0 
0 
0 
0 
0 
0 
04 
03 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


UU SS SW -WO  WENONFS |] WW 


VINES WEEMS 
fSoowo Of——rwrv 


063302 
063310 051445 033061 





CZUACAO DEUNA NI meg 


CZUACA.P11 


4 
063771 


19=JUL=83 
000 


D 
1 


R DI 
7:13 


030523 
040445 


0 
051445 
040445 


AGNOSTIC 


046501 


052045 
050101 


MACY11 
GLOBAL 


CNTRO?: 


CNTROB: 


CNTROO: 


CNTR10: 


CNTR11: 


CNIR12: 


CNTR13: 


CNTR14: 


CNTR15: 


T 


eASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


ois SEQ 64 


30A(1052) 20-JUL-83 13:27 PAGE 65 
EXT SECTION 


/ZNZAMULTICAST DA™* BYTES RECEIVED: %S62T/ 


/ENZARECEIVED PACKETS LOST=INTERNAL :%S102%25/ 


/ENZARECEIVED PACKETS LOST LOCAL :%S12%25/ 


/ENZAPACKETS TRANSMITTED: %S162T/ 


/2NZAMULTICAST PACKETS TRANSMITTED: 2S62T/ 


/ZNZAPACKETS TRANSMITTED 3+ TRYS:%S82T/ 


/%NZAPACKETS TRANSMITTED 2 TRYS:%S92T/ 


/ENZAPACKETS DEFFERED:2S192T/ 


/ZNZADATA BYTES TRANSMITTED:%S132T/ 


CZUACAO DEUNA NI EXERCIS 


CZUACA.P11 


3413 


063776 


064415 


19=JUL=83 
052101 


034123 
040445 


022466 
022516 


041045 
051124 


032532 
054101 


000065 


047520 


052522 
047516 
040516 
051117 


053440 


MACY11 30A(1052) 


N 5 
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SEQ 65 


GLOBAL TEXT SECTION 


CNTR16: 


CNTR17: 


CNTR18: 


CNTR19: 


EMSGO1: 


EMSGO2: 


EMSGO3: 


EMSG04: 


EMSGO5: 


eASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


/ZNZAMULTICAST BYTES TRANSMITTED: %S82T/ 


/ZNZATRANSMIT PACKETS ABORTED-BI TMAP: 2S8%B6/ 


/ZNZATRANSMIT PACKETS ABORTED :%S16%25/ 


/&NZAXMIT COLLISION CHECK FAILURE :%S12%25/ 


ERROR MESSAGES FOR DEUNA DRIVER 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


/UNA PURT COMMAND ERROR/ 


/UNA FATAL ERROR/ 


/UNEXPLAINED UNA INTERRUPT/ 


/UNKNOWN UNA ERROR/ 


/UNA WON'T READ PCB ADDRESS/ 


B 6 
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047117 


EMSGO6: .ASCIZ /UNABLE TO READ PHYSICAL ADDRESS/ 


WONn-Wwe ew 


ooo 
Meu 
_—oO 
=n 
oo 
& 


/UNA WILL NOT GO INTO RUNNING STATE/ 


EMSGO8: .ASCIZ /TIMEOUT!=-TRANSMIT FLAG NOT SET/ 


—UNSOfn——9_ Oo ——_— ONS 


So 
N O-UMMOOUAKNN ULSONS £00 


=— LUMovio 
= & 


051 EMSGO9: ERROR DURING TRANSMIT PDMD COMMAND/ 


EMSG10: /TRANSMIT RING BOOKKEEPING ERROR/ 


5 
151 
1 
0 
2 
2 
2 
1 
010 
0 
04 


Om FS LUNONAO 


051105 
042503 62 EMSG11: .ASCIZ /RECEIVE RING BOOKKEEPING ERROR/ 


051122 
051505 0 EMSG14: /MESSAGE SIZE TOO BIG FOR MAX. PACKET LENGTH/ 


EMSG15: /DNI DID NOT SET FROM RESET/ 


EMSG16: /UNA WILL NOT READ DESCRIPTOR RINGS/ 


MONONA) 2 
FWNM-OCOONOUS wld 


065100 051040 040505 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 

CZUACA.P11 19=JUL=83 17:13 
3525 065106 042504 041523 044522 
3526 065114 052120 051117 051040 
3527 065122 047111 051507 000 
3528 065127 103 047101 052047 
3529 065134 043440 052105 044440 
3530 065142 044516 044524 046101 
3531 065150 051440 040524 052524 
3532 065156 0201235 047111 047506 
3533 065164 3040 047522 020115 
3534 065172 047125 000101 
3535 065176 042515 051523 043501 
3536 5204 020105 040504 040524 
3537 065212 041440 046517 040520 
3538 065220 044522 047523 020116 
3539 065226 051105 047522 000122 
3540 065234 047524 040524 020114 
3541 06524 40504 040524 041440 
3542 065250 046517 040520 042522 
3543 065256 042440 051122 051117 
3544 5264 000123 
3545 065266 047045 040445 047516 
3546 065274 051040 051505 047520 
3547 065302 051516 020105 051106 
3548 065310 046517 047040 042117 
3549 065316 027105 000 
3550 065321 105 051122 051117 
3551 065326 053440 044510 042514 
3552 065334 040440 052124 046505 
3553 065342 052120 047111 020107 
3554 065350 047524 053440 044522 
3555 065356 042524 046440 042117 
3556 065 000105 
3557 065366 051124 047101 046523 
3558 065374 052111 042440 051122 
3559 065402 051117 020054 046101 
3560 065410 020114 040520 045503 
3561 065416 052105 020125 047516 
3562 065424 020124 051124 047101 
3563 065432 046523 052111 042524 
3564 065440 000104 
3565 065442 051105 047522 020122 
3566 065450 044127 046111 020105 
3567 065456 052101 042524 050115 
3568 065464 044524 043516 052040 
3569 065472 020117 051127 052111 
3570 065500 020105 052515 052114 
3571 065506 041511 051501 020124 
3572 065514 042101 051104 051505 
3573 065522 020123 044514 052123 
3574 065530 00 
3575 065531 105 051122 051117 
3576 065536 053440 044510 042514 
3577 065544 040440 052124 046505 
3578 065552 052120 047111 020107 
3579 065560 047520 052122 043040 
3580 065566 047125 052103 047511 
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GLOBAL TEXT SECTION 


EMSG18: .ASCIZ /CAN'T GET INITIAL STATUS INFO FROM UNA/ 


EMSG19: .ASCIZ /MESSAGE DATA COMPARISON ERROR/ 


EMSG20: .ASCIZ /TOTAL DATA COMPARE ERRORS/ 


EMSG22: .ASCIZ /ZNZANO RESPONSE FROM NODE./ 


EMSG23: .ASCIZ /ERROR WHILE ATTEMPTING TO WRITE MODE/ 


EMSG24: .ASCIZ /TRANSMIT ERROR, ALL PACKETS NOT TRANSMITTED/ 


EMSG25: .ASCIZ /ERROR WHILE ATTEMPTING TO WRITE MULTICAST ADDRESS LIST/ 


EMSG30: .ASCIZ /ERROR WHILE ATTEMPTING PORT FUNCT ION/ 


SEQ 67 
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EMSG31: .ASCIZ /UNABLE TO READ INTERNAL COUNTERS/ 
EMSG32: \ZNZAILLEGAL TARGET/ASSIST PAIR IN NODE TABLE\ 


040524 


052517 EMSG33: .ASCIZ /TIMEOUT ERROR/ 
051105 047522 


044524 042515 EMSG34: .ASCIZ <15><12>/TIMEOUT OCCURED BEFORE LOOPBACK REPLY/ 


042522 
046111 : .ASCIZ /%AFAILING NODE ADDRESS: 2T2N/ 


EMSG36: /ZADATA PATTERN: 2T2N/ 
022440 
046111 EMSG37: /ZAFAILING TARGET NODE ADDRESS: %T2N/ 


EMSG38: /ZAFAILING ASSIST NODE ADDRESS: %T2N/ 


EMSG40: <15><12>/TIMEOUT OCCURED - LOOP MESSAGE TYPE = RECEIVE ASSIST/ 
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EMSG41: .ASCIZ <15><12>/TIMEOUT OCCURED = LOOP MESSAGE TYPE = TRANSMIT ASSIST/ 


EMSG42: <15><12>/TIMEOUT OCCURED = LOOP MESSAGE TYPE = FULL ASSIST/ 


SIMSG1: .ASCIZ /%NZA NODE DEFAULT ADDRESS: 2T/ 


034123 SIMSG2: /ENZSBZARECEIPT NUMBER: %06/ 
042503 
052516 
020072 


020040 SIMSG3: /%N%A MAINTENANCE VERSION: %Z2/ 


SIMSG4: .ASCIZ /2NZS19ZAECO: %22/ 


SIMSG5: .ASCIZ /ZNZS14ZAUSER ECO: %22/ 
SIMSG6: .ASCIZ /%NZS14ZAFUNCTION: 202/ 


SIMSG7: .ASCIZ /%NZS16ZADEVICE: %02/ 


Sescee? 
WE OWSE 


066702 
066710 031117 


066714 -EVEN 
066714 047045 PCMSG:: .ASCIZ /2NZAPC OF CALLING ROUTINE = %06/ 








F 6 
AGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 71 
GLOBAL TEXT SECTION 


SEQ 70 

CZUACAO DEUNA NI EXERCISER 
CZUACA.P11 19=JUL=83 17: 
2 


30? 066722 047440 0 


-EVEN 
066754 047045 areas 054502 CMPER1: .ASCIZ /%NZABYTE NUMBER: %D42A(D) EXPECTED=%06%A(0) RECIEVED=%06%A(0)/ 


6 
3708 067042 022466 024101 024517 
022516 052101 CMPER2: .ASCIZ /%NZATOTAL MISMATCHES IN MESSAGE = 2D4/ 


056 022440 
3717 067117 045 022516 046101 LGERMS: .ASCIZ /%NZALENGTH ERROR == BYTES EXPECTED: %06%A BYTES RECEIVED: %06/ 


Os 1s43 SUMMS1: .ASCIZ /%N2%S8%ANODE: 21/ 


O741g5 SUMMS2: .ASCIZ /ZNZARX NOT COMPLETE RX COMPLETE LENGTH ERRORS/ 


3740 067322 047045 051445 022466 SUMMS3: .ASCIZ /%N%$6%25%S12%25%S10225/ 


7344 
3744 067351 045 022516 041501 SUMMS4: .ASCIZ /%NZACOMPARE ERRORS BYTES COMPARED BYTES XFER/ 


067364 
3747 067372 020123 020040 041040 
3748 067400 052131 051505 041440 
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CZUACA.P11 19-JUL=83 17:13 GLOBAL TEXT SECTION 

3749 067406 046517 040520 042522 

3750 067414 020104 020040 041040 

3751 067422 052131 051505 054040 

3752 067430 042506 000122 

3753 067434 047045 051445 022466 SUMMSS: .ASCIZ /2NZS6%252S82T/ 

3754 067442 032532 051445 022470 

3755 067450 000124 

He 067452 051445 022465 000124 ye eASCIZ §=/2S52T/ 


H 6 


SEQ 72 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-yUL-83 13:27 PAGE 73 
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3760 .SBTTL GLOBAL ERROR REPORT SECTION 

3762 3+ 

3763 3 THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

3764 ; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 

3769 ; (BASIC) AND PRINTX ES XTEMDED) CALLS ARE USED TO CALL PRINT SERVICES. 

3767 

3768 

3769 067460 BGNMSG ERR1 

3770 067460 ERR1:: 

3771 067460 012737 000020 003672 MOV #CEXIT, CFLAG 

3772 067466 PRINTX #PCMSG,PCCALL 

3773 067466 013746 050564 MOV PCCALL,-(SP) 

3774 067472 012746 066714 MOV #PCMSG,-(SP) 

3775 067476 012746 000002 MOV #2,° 

3776 067502 010600 P. 

3777 067504 104415 TRAP  C$PNTX 

3778 067506 062706 000006 ADD #6,SP 

3779 067512 DOCLN 

3780 067512 104444 TRAP C$DCLN 

3781 067514 ENDMSG 

3782 067514 £10002: 

3783 067514 104423 TRAP  C$MSG 

3785 067516 BGNMSG ERR2 

3786 067516 ERR2:: 

3787 067516 010146 MOV R1,=(SP) 

3788 067520 013701 002370 MOV PSTYPE, R1 

3789 067524 006301 ASL 
067526 062701 003262 ADD 

3791 067532 = PRINTX FEASGSS ASTREUF 

3792 067532 012746 002322 MOV #STRBUF ,-(SP) 

3793 067536 012746 066002 MOV #EMSG35,-(SP) 
067542 012746 000002 MOV #2,-(SP5 

3795 067546 010600 SP.RO 

3796 067550 104415 TRAP  CSPNTX 

3797 067552 062706 000006 ADD #6,SP 

3798 067556 PRINTX #EMSG36, (R1) 

3799 067556 011146 MOV (R1),=(SP) 

3800 067560 012746 066037 MOV #EMSG36,-(SP) 

3801 067564 012746 000002 MOV #2,-(SP) 
067570 010600 MOV SP,RO 

3803 067572 104415 TRAP  C$PNTX 
067574 062706 000006 ADD #6,SP 

3805 067600 012601 MOV (SP)+,k1 

3806 067602 ENDMSG 

3807 067602 L10003: 

3808 067602 104423 TRAP  CSMSG 

3810 067604 ‘ BGNMSG ERR3 

3811 067604 ERR3:: 

3812 067604 PRINTX #EMSG37,#STRBUF 

3813 067604 012746 002322 MOV #STRBUF ,-(SP) 

3814 067610 012746 066064 MOV #EMSG37,-(SP) 

3815 067614 012746 000002 MOV #2,=(SP) 


CZUACAO DEUNA NI EXERCIS 


CZUACA.P11 


067654 


19=JUL=83 
010600 
104415 
062706 
012746 


104423 


I 6 
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GLOBAL ERROR REPORT SECTION 


PRINTX #EMSG38,#STRBU1 


ENDMSG 


ENDMSG 


BeBe Ge Se Be Se Se Se Be Be Oe & 


L10004: 
TRAP 


ERRXXX 1,ERRORMESSAGE , AREANAME . 


THE AREAS IN THIS SECTION ARE FOR MESSAGES USED IN MORE THAN ONE 
TEST. USE THE PRINTB (PRINT BASIC) AND PRINTX (PRINT EXTENDED) 


MACROS. 
eee eee eee eee eee TAA RATA A AAA AAT AAAAIA% 


#STRBU1,<(SP) 
#EMSG38,-(SP) 
#2.=(SP) 


CSPNTX 


e 


CSMSG 


eee eee eee eee eee eee eee AS eA ALAA AAAI AAAAAAAAAAAAAAI22 
; THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 
R RR LL. THEY ARE INVOKED BY APPENDING THE NAME 


OF THE AREA TO AN ERROR CALL: 
THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 
BGNMSG AREANAME 


SEQ 73 
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~SBTTL GLOBAL SUBROUTINES SECTION 


ptt 
3 THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


s+t 
3 FUNCTIONAL DESCRIPTION: 
: SUBROUTINE TO.... 


re ete te ce? atk tation 
: eerkts isti or ter UBR iW! HY ) re T WITH A FUNCTIONAL 
nranrDESSRIPTUON OF THIS, SUBROUTINES sarranzrvareaysanrenzenarenrruayany 
3: INPUTS: 

FFT Fee e eee TTT TTT T eT TTT TT TTT TET TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT Teed 4 
; LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 
eee eee eee eee eee eee eee eee A A222 222222222222 
3; IMPLICIT INPUTS: 


een tar taket Lala Tat ae Pitty ae Ge ee aE 
: ele “b ata te jig! ARE IMPLICITLY USED BY THIS SUBROUTINE; 


D FROM COMMON AREAS. 
; S yunnnxxnzexeEAe2EEEne25220132 25 ENELEXERUSESSER EE 222222 222 222 ELEELLEEELEEEEEE22222 


3 OUTPUTS: 
ee tt tai? Gaia fat cae Eitihhr dine ar tlt eee EE 
S AXMRRExELREZX2E22 L222 E42 EEELERELEEAEYLLELELLLRETLEES ALLEL ELLLATLELELELEAELEEIE 
: IMPLICIT OUTPUTS: 


a el cr dait tat cae te itt? dae ir tek tae 
; aoe mg hy GIVEN BY THIS SUBROUTINE; 


" EXANP ToRED "IN N COMMON, AREAS 
$ eanareriOn EEAMEH DATA, STORED IN, COMIN AREAS, ccnussrsnuasasananaen2 
3 SUBORDINATE ROUTINES USED: 
ees s STF TTF T TTT T STs TTT TTT TTT TTT Tee Tee Tee TTT TTT 5559959599999 99599999995999 9553 
: LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. 
459 99999995995995995999999999599599999999995599999999999999999955999999999995959) 
3 FUNCTIONAL SIDE EFFECTS: 
$ eames 95 WOME TREO 1 ee 
: DESCRIBE ANY EFFECTS THIS SUBROUT > AVE UPON OTH 
: MODULES OF THE DIAGNOSTIC PRO GRAM. ANE xAnPLE R THis. is 


; THE SUBROUTINE INHIBITS ALL_ INTERRUPTS WITH PRIORITY 7. 
Peete T TTT TTT ire AENLTATEXLERLALERESEESERR2S E22 22222 20EEEEEEEEEE 
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: CALLING SEQUENCE: 
Pe Peet trent ait th cae nit hati 
: IVE THE EXA ALLING SEQUENCE USED TO ACCESS T UBROUT INE. 
; FOR EXAMPLE? “nOV COUNT .R1 {MOVE INPUT TO Rt 
: 4 PC ROUTINE 360 Mi cove Wy 


BCS ERROR > CARR ROUTINE HAD ERR 
jauaenueQQUNSUENS3E¢820 500000005000 00000 2000205500 SARE EA REESE REET 
2 eager e nana TERROR EAETEREEE EEEEEEEEEEOIIE 

yg nF en al ps SUBROUTINE a 


ae OE FINE DOUBLE HE SUBROUTINE G 
eauarSisgEsHMeaatl igh ROGUES COLON, C333; THIS MILL MAKE Tue SUBROUTINE GLOBAL 
eee eee eee eee ATTA AAA ATTA AAS ALATA AAA AAA AAA AAAAAAAAAAA22 
: N_EACH SUBROUTINE AT THE TOP OF A NEW PAGE. 
Ae $$999999995955955599995555555555 50 Fre ree Trieste sere eer T tite peti T Tie) 
~SBTTL CLKSET CLOCK SETUP SUBROUTINE 


FUNCTIONAL DESCRIPTION: 
THIS $ BROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING 
Ck** CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE 
NOTHING ABOUT AN LSI-11°S CLOCK, THE 
ROUTINE IS ONLY USED IF A LINE OR P-CLOCK IS FOUND. 


INPUTS = R1 = POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2 = POINTS TO *'CLK’* TABLE WHERE CLOCK INFO WILL BE KEPT 


OUTPUTS =- “ELRBR, ir, hosee” WITH My CLOCK*D CSR ADDRESS 


"CLK 
“CLRHZ” GETS LOADED WITH THE LINE FREQ. (IN HERTZ) 


CALLING PROCEDURE: 
JSR PC ,CLKSET ; CALL CLOCK SETUP WITH R1 AND R2 SETUP 


cemwe t 


CLKSET: 


Py 
. 
e 
e 
e 
° 
a 
° 
e 
. 
° 
. 
e 
. 
ca 
. 
* 
> 
6 
© 
° 
. 
a 
° 
e 
° 
e 
. 
e 
. 
e 
e 
o 
a 
* 
e 


(R1)+,(R2)+ ; LOAD CLOCK'S CSR ADDR. INTO ‘*CLKCSR*® 
(R1)+,(R2) ; LOAD CLOCK'S INTR. + he ah **CLKBR*’ 
(R2) ; ADJUST THE INTR. LEVEL FOR LOADING 

; INTO THE PSW WITH A SETVEC CALL 


(R2)+ 
(R1)+,(R2)+ ; LOAD CLOCKS INTR. VECTOR INTO *‘CLKVEC’ 
ae 2 (R2)+ 3 LOAD CLOCK'S FREQ. INTO ‘‘CLKHZ’ 


SUNRRRSS 
NPPONPoNMNoPoNony 


Soooooooooeo 


067700 
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CZUACA.P11 


067702 
067702 


067702 


0 
070010 


005077 


005037 
005737 


005337 


113766 
003712 


003702 
003710 
000074 


003706 
003710 


003714 


003714 
003716 


003716 
003720 


003702 
003720 


CLKSET CLOCK SETUP SUBROUTINE 
-SBTTL CLKINT CLOCK INTERRUPT SERVIDE ROUTINE 


smat 
; FUNCTIONAL DESCRIPTION: 
THIS 1S THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE 
GT NCE-START™” AND COUNTING DOWN ANY OF THE 
THE TIMERS ARE USED. TO “TIME COMPLETION OF 
THE “'TIME-SINCE=START" IS USED TO BE LOGGED 
WITH EACH ENTRY INTO THE EVENT LOG. 


; ; IMPLICIT INPUTS = aie = THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL 
A SECOND HAS BEEN COUNTED 
CLKHZ = A ws OF TICKS IN A SECOND, DETERMINED BY THE 


NE FREQ. 

: TIMSEC = CURRENT VALUE OF “‘TIME-SINCE-START’’ IN 
; MINUTES AND SECONDS 

; TIMER 1,2 AND S$ - CURRENT VALUES OF “EVENT TIMERS'’ 
IMPLICIT OUTPUTS - NEW VALUE OF EVENT TIMER ‘‘I'* & "2" DECREMENTED BY 1 TICK 


T We 
NEW VALUE OF EVENT TIMER ‘’S*’ DECREMENTED BY 1 SECOND IF IT 
WAS NON-ZERO 


; ; SIDE EFFECTS = THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 


; : CALLING PROCEDURE = THIS ROUTINE IS CALLED WHEN THE CLODK INTERRUPTS THRU 
; *“*CLKVEC'’. THE ADDRESS OF THIS ROUTINE WAS !' OADED 
INTO THE CLOCK'S INTERRUPT VECTOR WITH A ‘'SETVEC’’ CALL 


BGNSRV CLKINT 
CLKINT:: 


DISABLE “tt CLOCK FROM INTERRUPTING 
DECREMENT THE NO. OF TICKS/SEC 

GO CHECK TIMERS 

RESET THE NO. OF TICKS/SEC. 

INC. NO OF pS at nm START 

SEE IF WE'VE COUNTED 60 SEC.S YET 
IF NOT, GO CHECK TIMERS 

ELSE, INC. MINUTES-SINCE=START 

AND RESTART SECOND COUNTER 


SEE IF TIMER1 TIMING yt 
IF=0, HECK _NEXT TIME 
SS DECREMENT THE yd. o> (BY 1 TICK) 


acLKCSR 
TIMTCK 


1$ 
003712 CLKHZ, TIMTCK 
TIMSEC 
003710 MP o50~2 1 SE 


TIMMIN 
TIMSEC 


1$: TIMER 
2s 


TIMEP1 
2$: TIMER2 
3$ 


TIMER2 
3$: [pees 


$ 
003712 FLAME, TINTCR 
TIMERS 


LEAVE 
osteo HAS BEEN COUNTED OFF 
DECREMENT TIMER VALUE (BY 1 SEC.) 
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070014 013777 003704 113652 4$: MOV CLKEN, @CLKCSR 3 REENABLE THE CLOCK TO INTERRUPT 
070022 ENDSRV 


070022 L10005: 
070022 000002 RTI 


-SBTTL PREG14 PRESERVE REGISTERS 1 THROUGH 4 ACROSS SUBROUTINE CALLS 


PERERA AAREEEREEEEAEEEEEEEEEEREEEREEREREEEEREEEEEREEEAEREEREEEEEEERE EERE EEEEE 


: INPUTS: THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 
: CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 


OUTPUTS: ye 1 THROUGH 4 ARE PRESERVED ACROSS THE CALLED ROUTINE. 
; A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN'T OVER-RUN 

: “THE PARAMETER STACK. 

CALLING SEQUENCE: far i; BEST HANDLED BY THE ‘‘CALL*’ MACRO. THE ACTUAL 


: JSR R4,PREG14 
: WORD [SUBROUTINE NAMEJ~ANCHOR 


; COMMENTS: THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE. 
3 THIS ROUTINE IS DRS COMPATIBLE. 


[SUBORDINATE ROUTINES CALLED: THE ROUTINE SPECIFIED IN THE CALL. 


FERRARA ERREEEEEEEEEEEAEEREREEEREREREREEEEEEEREREEEREEEEEEEEEEEEEAEREREREEE 


zR4 IS ALREADY ON THE R6 STACK. 
070024 PREG14: MOV R3,~(SP) PUSH R3, R2, R1 

070026 MOV R2,~(SP) : 

070030 MOV R1,-(SP) : 


070032 050564 MOV R4, PCCALI 
070036 1 MOV (R4)+,R1 3GET_THE RELATIVE ADDRESS OF THE CAtLeu 


zROUTINE. 

070040 PC,R1 sMAKE IT AN ABSOLUTE ADDRESS. 
070042 ANCHOR: R4,~(SP) SAVE THE RETURN TO THE CALLING ROUTINE, 
070044 R5,SP CHECK FOR STACK OVER=RUN. 
070046 1$ : 
070050 HANDLE STACK OVERRUN CONDITION. 
070052 004711 : PC,(R1) sCALL THE SPECIFIED ROUTINE. 
070054 012604 (SP)+,R4 RESTORE THE RETURN TO THE CALLING ROUTINE. 
070056 012601 (SP)+,R1 sRESTORE THE REGISTERS. 

(SP)+,R2 : 


(SP)+,R3 3 
000204 R4 :BACK TO THE CALLING ROUTINE. 
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4061 
rts 4 -SBTTL WAIT WAIT FOR DEUNA INTERRUPT WITH TIMEOUT 
4064 3+ 
4065 ; FUNCTIONAL was 1 
4066 ; HIS er a Th WAITS FOR DNI INTERRUPTS FROM THE DEUNA 
4067 ; OR REPORTS A TIMEOUT. IF A UNA INTERRUPT HAS OCCURED, 
thes ; THE SUBROUTINE ERROR IS CALLED TO HANDLE IT. 
rth é SUCCESS OR FAILURE IS REPORTED VIA P1. 
4072 3; INPUTS - 
4073 ; NONE 
4074 3 
4075 ; OUTPUTS=- 
108 3 Pl: SUCCESS/FAILURE O=SUCCESS/-1=FAILURE 
4078 3; CALLING SEQUENCE: 
4079 ; CALL WAIT 
4089 ; P$POP P1 
2082 ie 
4083 070066 012703 000012 WAIT:: MOV #10.,R3 : MOVE NO. OF COUNTS TO R3 
4084 070072 012704 003714 MOV ATIMER1,RS ; AND TIMER TO BE USED TO R4 
4085 070076 005002 CLR R2 sLOCAL STATUS PARAMETER 
4086 070100 010314 MOV R3,(R4) sSET NUMBER OF TICKS. (GLOBAL) 
4087 070102 005737 050530 1$: TST ERRFLG ; CHECK 4 ERROR OCCURED 
4088 070106 (91011 BNE 3$ If Y 
4089 070110 ¢95737 050522 TST DNIFLG CHECK FOR DNI INTERRUPT 
4090 070114 001403 BEQ 2$ ; BR IF INTERRUPT RECEIVED 
4091 070116 005037 050522 CLR DNIFLG 
4092 070122 000410 BR 6$ 
4093 070124 005714 2$: TST (R4) sHAS TIMER EXPIRED? 
4094 070126 001365 BNE 1$ : BR IF NO TO WAIT FOR INTERRUPT 
4095 070130 000403 BR 5$ R TO 5$ 
4096 070132 3$: CALL ERROR CALL ERROR ret ae 
4097 070140 012702 177777 5$: MOV #-1,R2 s INDICATE FAILUR 
rst 070144 6$: RETURN R2 RETURN WITH LOC EESS/FAILURE INDICATION 
rt -SBTTL ERROR HANDLE UNA INTERRUPT ERRORS 
4102 soot 
4103 3; FUNCTIONAL DESCRIPTION: 
4104 3 THIS SUBROUTINE CHECKS THE ERROR FLAGS SET BY 
4105 f UNAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
rt} 5 3 OUT THE APPRORIATE ERROR MESSSAGES. 
4108 ; INPUTS - 
rhi'44 3 wae ERROR FLAGS SHOULD BE SET BY UNAISR ROUTINES. 
ete : IMPLICIT: ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE. 
4113 ; CALLING SEQUENCE: 
4114 : CALL ERROR 
4115 : 
4116 sort 
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070150 005337 050530 ERROR: : ERRFLG sDECRIMENT ERROR yoy TO SHOW 
;THAT IT a BEEN HANDL soe 
070154 050514 PCEFLG a IF PORT COMMAND ERR 
0701 001013 :_IF He BRANCH 
050512 FATFLG sSEE IF UNA FATAL ERROR 
10$ IF YES, BRANCH 
050526 BCOUNT : SEE IF UNEXPL AINED INTERRUPT 


001023 

4,EMSG04 ,ERR1 ; UNKNOWN ERROR 
104455 TRA CSERDF 
000004 & 


EMSG04 
ERR1 
208 3 EXIT 
1,EMSG01,ERR1 ;PORT COMMAND ERROR 
CSERDF 
EMSGO01 
eWORD ERR1 
050514 3 PCEFLG a 5 aoe THAT IT WAS HANDLED 


20$ 
2,EMSGO2 ,ERR1 TUNA FATAL ERROR 
TRAP CSERDF 


«WORD 

WOR EMSGO2 

-WO ERR1 
050512 3 FATFLG ; KEEP UP ON BOOK KEEPING 


000406 20$ : EXI 
s 3,EMSGO3,ERR1 sUNEXPLAINED INTERRUPT 
104455 R CSERDF 


EMSGO3 
ERR1 


005337 050526 DEC BCOUNT ; BOOK KEEPING 
070260 20$: RETURN ;RETURN 


-SBTTL UNAINI INITIALIZE THE UNA 


hb hbbbbbhhbbhhhbbbhhhbbbhhhhbbbhhhbbbhhbbbbhhhbbbhbbbbhbbbbhbhy 
; SUBROUTINE TO 
? Le READY STATE 
L UNA GLOBAL DATA LOCATIONS 
FAULT VALUES. 

CALL UNAINI 

; INPUTS: NONE 
; ; OUTPUTS: NONE 


; : SIDEEFFECTS: ALL GLOBAL LOCATIONS ARE ZEROED 


NN NADRAAAAOAAOOUVIVI 
M—OVOONOUS WhO 0On 


CALLED BY: 





ssh SEQ 80 


4228 070404 (005037 047650 CLR PCSRSC 
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417 3 : 
ae FERRARA ERARAEEAEE EERE EE EEE EERE EERE EERE EE EEE EEE EREREEREREEEREE | 
41 
4176 
4177 “Semen ge tpt erry tnt ai, 
4178 RESET AND STOP UNA HARDWARE 
rit Seeeeeeteeeeeeeettetteeeeeteeneeeneeeee: 
41 
4181 070262 013703 047632 UNAINI : :MOV PCSRO, R3 : MOVE ADDRESS OF PCSRO TO R3 
re 070266 012713 000040 MOV #RSET, (R3) 3; HARDWARE RESET UNA 
4184 070272 005002 CLR R2 ; LOOP COUNTER INIT 
4185 070274 011301 7$: MOV (R3), R1 3; READ PCSRO 
- 6186 070276 032701 004000 BIT #DNI, R1 3; WAIT FOR COMMAND TO FINISH 
4187 070302 001006 BNE of ; BACK TIL DNI =1 
4188 070304 005302 DEC Re 3; COUNT DOWN DELAY 
4189 070306 001372 BNE 7$ 3; BACK UNTIL TIMEOUT 
4190 070310 ERRDF 15,€MSG15,ERR1 3; PRINT ** DNI DID NOT SET FROM’ 
4191 070310 104455 TRAP CSERDF 
4192 070312 000017 «WORD 15 
4193 070314 065031 -WORD EMSG15 
4194 070316 067460 «WORD ERRI 
hh : ** A RESET’ 
rh tA 070320 012713 004000 9$: MOV #ONI, (R3) 3; WRITE ONE TO CLEAR DNI 
4199 _ phy ncn age eaten ie 
4200 3; NOW ENABLE INTERRUPTS FOR THE ALL : 
4201 3 PORT COMMANDS ET AL 3 
4202 FRRRERAREERAEERE AEE EE EERE REREREREEREEEE : 
4203 
rir) 070324 112713 000100 MOVB #INTE, (R3) 3; ENABLE INTERRUPTS 
4206 FERRER ERERRAEERE REE EEEEEREREEREREEREREEEE 
4207 ; LOAD ADDRESS OF PCBB 
4208 TIE TITTLE TELL LLL LLL 
4209 
4210 070330 012763 047666 000004 MOV #PCBB0,4(R3) : LOWER 16 BITS OF ADRS 
‘S13 070336 005063 000006 CLR 6(R3) 3; UPPER 2 
4213 070342 CALL COMAND #GETPCB 3; LOAD ADDRESS 
4214 070354 P$POP R2 3; GET SUCCESS/FAILURE REPORT 
4215 070356 001404 BEQ 10$ 3; CONTINUE IF OK 
4216 070360 ERRDF 5,EMSGOS,ERR1 ; ELSE REPORT ERROR 
4217 070360 104455 TRAP CSERDF 
4218 070362 000005 WORD 
4219 070364 064415 eWORD EMSGOS 
33 070366 067460 «WORD ERR 
4222 FERRARA EAE EERE RAR EERERERERERREEE: 
4223 070370 10$: 3 INIT GLOBAL DATA : 
4224 FERRARA ERE EATER EERE R AERA AERE REE EAE EE: 
4225 070370 005037 047642 CLR PCSROC 3; INIT CONTENTS OF CUR PCSRO 
4226 070374 005037 047644 CLR PCSRIC 3 PCSR1 
4227 070400 005037 047646 CLR PCSR2C 3 PCSR2 
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070526 


070530 
070534 
070540 
070544 


070550 


070570 
070574 
070600 
070604 


070610 
070614 
070620 


070624 


070644 


012761 


005392 
001364 


012701 
005061 
005061 
005061 
012701 
005061 
005061 
005061 
012701 
005061 
005061 
005061 


012701 


012701 
000006 


012701 


003772 


047750 
000002 
000004 
000006 


047760 
000002 
000004 
000006 


047770 
000002 
000004 
000006 


050100 
000004 
000006 


050110 


050124 


NI EXERCISER A semen: 
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003756 


003764 


000004 


000004 


D7 
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INITIALIZE THE UNA 


UNAINI 


SRERERRERERREREREE CREE ERERRERERREREHEE: 
INIT RING 5 1 a AND 
RING ENTRIES 
ITTISTITIITT Iti iti tii iti iii ii iii Ss 


#XRING ,XRGCUR ; SET POINTERS TO BEGINING OF RING 
#XRING,XRGNXT 

#RRING,RRGCUR 

#RRING ,RRGNXT 

#NO.NTR,R2 : RESET ee AND STATUS OF 


XRGCUR,R1 ; _RING EN 
: FOR TRANSMIT RING... 


#0,4(R1) 

GETXNX #XRGCUR 
R2 

12$ 

#NO.NTR,R2 : ..AND RECIEVE RING 
RRGCUR,R1 

#100006, 4(R1) 

GETRNX ‘#RRGCUR 

R2 
13$ 


SEERA AEAAEREAAREAREEEAERAAAEAEERERRAARRERREEE - 


CLEAR UP ALL PCB AND UCB, : 


SET BACK TO DEFAULT VALUES 


FRRARAAAAAAAAAAAEAERAREREEAERAERAERREREEEEEE © 


#SRDDE, R1 ; READ DEF PHY ADDR PCB 
2(R1) 


#SRDPH, R1 ; READ CURRENT PHY ADDR PCB 
2(R1) 


4(R1) 
6(R1) 


een R1 ; WRITE CURRENT PHY ADDR PCB 


#SRDRN, R1 ; READ RING FORMAT 
4(R1) 

6(R1) 

#UCB10, R1 ; RING ENTRIES: 
(R1)+ ; INIT 10 0 


#$WDRN, R1 ; WRITE RING FORMAT 
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005061 000004 4(R1) 
005061 000006 6(R1) 


012701 050150 #SRDCN, ; READ COUNTERS 
005061 000004 4(R1) 


012701 050160 #UCB12, ; COUNTER ENTRIES 
000040 #40,R2 
(RIS 


R 
001375 14$ 


070706 012701 050260 MO #$CLRC, ; CLEAR COUNTERS 
070712 005061 000004 4(R1) 


070716 012701 050270 eee ; READ MODE 


070732 000006 


070736 050300 ; WRITE MODE 
005061 000002 2(R1) 
000004 
070752 000006 


070756 050310 ; READ STATUS 


070772 005061 000006 


rors 012701 050320 ; READ AND CLEAR STATUS 
071002 005061 2(R1 

071006 

071012 


071016 005037 050516 CL NIRCNT ; CLEAR BUFFERS nee thes COUNTER 
FUNCT #WDRNGS ; WRITE DESCRIPTOR RING 
R2 ; CHECK FOR ERROR 
001404 BEQ 15$ ; IF OK, CONTINUE 
16,EMSG16,ERR1 ; ELSE REPORT = 
104455 TRAP CSERDF 
000020 D 16 
065064 “WORD EMSG16 
067460 -WORD ERR1 


COMAND #STRT ; PUT UNA _IN RUNNING STATE 

R2 ; CHECK FOR ERROR 

001404 BE 20$ ; IF OK, CONTINUE 
7,EMSGO7 ,ERR1 ; ELSE REPORT ERROR 
TRAP CSERDF 


“WORD  EMSGO7 
071074 067460 -WORD ERR1 


071076 : CALL FUNCT #RDPHYA ; READ UNA PHYSICAL ADDRESS 
071110 R2 ; CHECK FOR ERROR 
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CZUACA.P11 


071142 


071144 


071150 


071152 
071154 


071160 
071162 


071202 


071206 
071210 


071214 
971216 
071222 


071224 
071230 


071232 


1 


omnniets 
JUL=85 1 


001404 
104455 


032703 
001403 


005237 
000443 


C32703 


aw, 


047670 
047762 


047632 


047642 


047632 


000001 


100400 


050512 


040000 


7 
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UNAINI 


25$: 


-SBTTL 


UNAISR:: 


10$: 


INITIALIZE THE UNA 


BEQ 25$ 3 IF OK, CONTINUE 

ERRDF 6,EMSG06,ERR1 ; ELSE, REPORT ERROR 
TRAP ~~ 
«WORD EMSG06 
-WORD = ERR1 

MOV #PCBB2, R1 3 STORE PHYSICAL ADDRESS 

MOV #PHYADR, R4 

MOV (R1)+,(R4)+ : MOVE FIRST TWO BYTES 

MOV (R1)+, (R4)+ : AND SECOND TWO 

MOV (R1), (R4) ; AND DONE 


RETURN 
UNAISR UNA INTERRUPT SERVICE ROUTINE 


THIS INTERRUPT ROUTINE WILL BE THE ONLY INTERRUPT ROUTINE 
WHICH THE UNA HARDWARE WILL VECTOR TO UPON HARDWARE INTERRUPT. 


THE REASON FOR SUCH INTERRUPTS ARE TO BE DETERMINED 
FROM THE APPROPRIATE BITS IN THE PCSRO. 


IN ADDITION ALL WRITE ONE TO CLEAR BITS OF THE PCSRO 
ARE CLEARED FROM THIS ROUTINE. 


MOV R1,-(SP) sSAVE R1 

MOV R2.-(SP) Sees 

MOV R3,~(SP) Sees 

CLR R3 SETUP WRITE 1 TO CLR MASK 
MOV PCSRO,R1 7GET PCSRO ADDRESS 

MOV (R1) ,R3 zAND ITS CONTENTS 


MOV (R1)+,PCSROC 
MOV (R1)+.PCSRIC 
MOV (R1)+.PCSR2C 
MOV (R1) PCSRSC 
MOV PCSRO,P1 


zSAVE PCSR*S FOR DEBUG 


SWAB R3 sREORIENT CeerenTy OF PCSRO 
MOVB R3,1(R1) SWRITE ONE TO CLEAR 

; ONLY CLEAR UPPER BYTE 
SWAB R3 ZREORIENT CONTENTS OF PCSRO 
BIT #SERI!FATI,R3 zANY FATAL STATUS ?? 
BEQ 10$ 
INC FATFLG SET FLAG 
BR 90$ sEXIT 


BIT #PCEI,R3 PORT COMMAND ERROR INTERRUPT? 
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071236 001402 208 :NO 

071240 005237 050514 PCEFLG zYES, INCREMENT FLAG 
071244 032703 020000 : #RXT,R3 sRECV INTERRUPT ?? 
071250 001402 0$ 3NO 

071252 005237 050516 NIRCNT zYES, SET FLAG 


071256 032703 010000 : #TXI,R3 s TRANSMIT INTERRUPT ?? 
rae et 


:NO 
050520 XFLAG sYES, SET FLAG 


071270 032703 004000 : #DNI,R3 _— DONE ?? 
071274 001402 
071276 005237 050522 DNIFLG YES, COUNT EACH DNI 


on 302 032703 002000 : ARCBI ,R3 RECIEVE BUFFER UNAVAILABLE? 
071306 001402 :NO 
071310 005237 050524 RBF CNT ; COUNT THEM 


071314 032703 034000 : #RXI!TXI!DNI RS CHECK FOR NON-ERROR INTERRUPT 
001007 BN EXIT IF ONE OCCURE 
142000 #SERI!PCEI!RCBI RS 7CHECK FOR ERROR INTERRUPT 
BN 80$ zIF ONE OCCURED, INCR. ERRFLG 
050526 ZELSE, NONSENSE INTERRUPT 


050530 
sRESTORE REGISTERS 
sRESTORE REGISTERS 
(SP)+,R1 RESTORE REGISTERS 
sAUF WIEDERSEHEN 


-SBTTL COMAND SUBR TO ISSUE A UNA PORT COMMAND 


“+ 
FUNCTIONAL eer ae 
pon al SUBROUTINE ISSUES A UNA PORT COMMAND. ERRORS 
AANDLED BY THE SUBROUTINE ERROR AND REPORTED IN 
Po IF ONE OCCURED. 


INPUTS = P1 = THE UNA ol COMMAND MNEMONIC OF THE 
OUTPUTS = P2 = SUCCESS REPORT. CONTAINS 0 FOR SUCCESS 
-1 IF A_UNA ERROR OCCURED. THIS PARAMETER 
IS PASSED DIRECTLY FROM THE WAIT 
ROUTINE AND IS UNTOUCHED BY COMAND. 


CALLING PROCEDURE = CALL COMAND #<COMMAND TYPE> 
SIDE EFFECTS = IF AN ERROR HAS OCCURED, THE ROUTINE ERROR WILL 


BE CALL 
REGISTER USAGE = R1 CONTAINS THE COMMAND TYPE. 


eet 


071350 
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4453 071350 R1 sMOVE COMMAND TYPE TO R1 

4454 071352 052701 000100 #INTE,R1 ADD INTERRUPT TO COMMAND 

4455 071356 010177 156250 R1 saPCSR RO ;MOV_COMMAND TO PCSRO 

4456 071362 CALL WAIT sWAIT FOR DONE INTERRUPT 

4457 071370 10$: RETURN = ERROR INFO STILL ON 
4458 ; PARAMETER STACK FROM WAIT SUB. 


- SBTTL SUBR TO PERFORM A UNA PORT FUNCTION 


tent 

FUNCTIONAL DESCRIPTION: 
THIS SUBROUTINE PERFORMS A UNA PORT FUNCTION. THE 
FUNCTION SPECIFIC PCB IS MOVED INTO THE UNA PCB. 


INPUTS = P1 = THE UNA PORT FUNCTION MNEMONIC OF THE 
DESIRED FUNCTION. 
OUTPUTS =- P2 - a a Gah a teres 0 FOR SUCCESS 


A_UNA_ERROR 0 . 
THIS PARAMETERIS PASSED DIRECTLY FROM THE 
COMAND SUB AND IS NOT AFFECTED BY FUNCT. 


CALLING PROCEDURE = CALL FUNCT #<FUNCTION TYPE> 
SIDE EFFECTS = IF AN ERROR HAS OCCURED, THE ROUTINE ERROR WILL 


BE CALLED. 
REGISTER USAGE = R1 core THE FUNCTION TYPE, WHICH IS TRANSFORMED 
TO THE ADDRESS OF THE FUNCTION SPECIFIC PCB. 
R2 CONTAINS THE ADDRESS OF THE UNA PCB. 


e 
o 
e 
o 
a 
* 
e 
© 
e 
a 
e 
. 
a 
o 
o 
. 
* 
* 
€ 
o 
e 
o 
. 
o 
o 
on 
. 
ao 
ow 
o 
. 
e 
. 
& 
° 
e 
. 
° 


071372 :: PSPOP = R1 : GET FUNCTION TYPE INTO R1 
071374 006301 ASL R1 MULTIPLY BY TwO 
071376 047676 #FUNTAB,R1 ADD FUNCTION TABLE OFFSET 
R1 NOW CONTAINS ADDRESS OF ADDRESS 
OF FUNCTION SPECIFIC PCB 
071402 047666 #PCBBO, R2 PUT UNA PCB INTO R2 
(R1) Ri pur ADDRESS OF PCB INTO R1 


(R1)+, (R2)+ 


PCB*S 
ISSUE GET PORT FUNCTION COMMAND 
SUCCESS INFO FROM COMAND SUBROUTINE 


: IS STILL ON PARAMETER STACK 


MOV ( 
CALL _COMAND #GETFNT 
071432 RETURN 


-SBITL XMIT TRANSMIT UNA PACKETS 


FUNCTIONAL wns 1 
THIS SUBROUTINE SETS UP THE TRANSMIT yg tothe 
ea pat AND ISSUES A POLL DEMAND COMMAND TO 


INPUTS = NONE 





CZUACAO DEUNA NI re gs, 


CZUACA.P11 


VVMiviviv 
ha SO OS 


BREE LR EERE 
AAAI AT 
SSSaNOnRWu=OS 


071454 
071460 
07 


071706 
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005037 


013714 


052764 
012737 


001126 


213 


050534 
003756 
100000 
050566 


101400 
000001 


003716 
000100 
050520 


100000 
040000 
003756 


016000 
002000 


050534 
000003 


000002 


050566 


DIAGNOSTIC 


000004 


000004 
050520 


000004 


000004 


003762 


000004 
000006 


050534 


MACY11 30A(1052) 


XMIT 


— >< Be Se Se Se Se Se Ge Ge Ge Se Se Ss Se 


248: 


268: 


30$: 


31$: 


OUTPUTS - 


i 


SEQ 86 


sgt eye 13:27 PAGE 87 
TRANSMIT UNA PACKET 


P1 = SUCCESS REPORT. 
CALL PROCEDURE = CALL XMIT 
PSPOP 


PI 


0 FOR SUCCESS, -1 FOR FAILURE 


SIDE EFFECTS = ps RING POINTER XRGNXT WILL BE UPDATED TO POINT THE NEXT 


VAILABLE ENTRY AFTER THE TRANSMIT OPERATION. 


USED AS A 


REGISTER USAGE - " Set TO by TIMER LOCATION 


RETRYS I 


INTER IF S SET 
R3 IS USED TO PASS THE SUCCESS/FAILURE MESSAGE BACK 
R4 IS USED AS A POINTER TO RING ENTRIES OR STATUS INFO. 


RETRYS 
XRGCUR ,R4 
#OWN,4(R4) 
BUF LEN, (R4) 
#OWN! STP! ENP,4(R4) 
#1,XFL 
COMAND #PDMD 
R3 

0$ 
#TIMER2,R1 
#100, (R1) 


TOWN, 4(R4) 
#ERRS ,4(R4) 
Geta #XRGCUR 
ee 


55$ 

#DEF !ONE !MORE ,4(R4) 
#RTRY,6(R4) 

32$ 

RETRYS 

#3,RETRYS 

26$ 


GETXNX #XRGCUR 
GETXNX _#XRGNXT 
2(R4) ,R2 


BU oR4 
(R2)+, (R3)+ 
R4 


Be Se Se Se Se Ge Fe Ge Be Ge Ge Fe Fe Ge Ge Ge Ge Se Be Se Se Ge Se Se Se Ge Be Be 


MOVE RING ENTRY LOCATION INTO R4 
MAKE SURE WE THIS 


ELSE, BOOKKEEPING ERROR 
MOVE BUFFER LENGTH INTO FIRST WORD OF 
NEXT AVAILABLE RING ENTRY 
OWN ee AND END OF PACKET BITS 


EXIT 
SET uP TO WAIT FOR TRANSMIT TO COMPLETE 


SEE IF ay DONE BIT SET 
IF SET, SKIP WAIT LOOP 

ELSE, SEE IF TIMEOUT YET 
NO, WAIT 


YES, EXIT 
SEE WHO OWNS THIS ENT 
IF UNA pe OWNS HIS. SOMETHINGS WRONG 
SEE IF ANY ERRORS 
IF ves, BRANCH AND TAKE CARE OF THEM 
UPDATE “TRANSMIT RING CURRENT’* POINTER 
ag ate SUCCESS 
Be ty POINTER = NEXT POINTER 


SET UP TO COPY DATA pyereR 
aD POINTS TO OLD BUFFER 
Cees TO NEW BUFFER 

COUNTS NUMBER OF BYTES TO COPY 
COPY DATA 
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001375 BNE 31$ ; HAVE WE a ny OF IT 
000652 BR 1 ; _IF YES, TRY 
32$: ERRDF 9,EMSGO9,ERR1 ; ELSE, FATAL DEVICE ERROR 
104455 TRAP CSERDF 
000011 -WORD 9 
-WORD EMSGO9 
WORD = ERR1 


50$ : EXIT 
10,EMSG10,ERR1 3 TRANSMIT RING veeencead A er 


50$ 
12,EMSG10,ERR1 ; BOOKKEEPING ERROR, XRGNXT SHOULD = XRGCUR 
TRAP CSERDF 


EMSG10 
ERR1 
000406 
005237 050532 INC TIMOUT 
ERRHRD 8,EMSGO8,ERR1 ; REPORT ERROR 
104456 CSERHRD 
000010 WO 
EMSGO8 
0 ERR1 
012703 177777 50$: MOV #-1,R3 3; ERROR INDICATOR 
071772 55$: RETURN R3 3; RETURN 
-SBTTL RECEVE RECEIVE UNA RING BUFFERS 
s==+ 
; FUNCTIONAL ere ie 
: S SUBROUTINE TAKES INCOMING DATA BUFFERS FROM 
tH HE UNA AND CHECKS FOR ERRORS. THIS PROCESS CONTINUES 
FOR ALL PENDING BUFFERS. 


; INPUTS = NONE 
; OUTPUTS =- P1 = THE NUMBER OF PACKETS HANDLED BY THIS CALL TO RECEVE 


t CALLING PROCEDURE = CALL RECEVE 
; P$POP P1 
: SIDE EFFECTS = THE POINTERS RRGCUR AND RRGNXT ARE UPDATED. 
> REGISTER USAGE - R1 IS USED TO HOLD CURRENT PACKET STATUS INFORMATION 
: R2 COUNTS THE NUMBER OF PACKETS HANDLED 
; R& POINTS TO THE RING DESCRIPTOR ENTRY 
io=+ 
071776 RECEVE:: 
005002 CLR R2 ; CLEAR PACKETS HANDLED COUNTER 
005737 050516 1$: NIRCNT : SEE IF ANY PACKETS TO RECEIVE 


001476 6 IF NO, EX 
C13704 003760 RRGCuUR ,R4 ; MOVE CURRENT RECEIVE RING POINTER TO R4 
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072012 016401 000004 
100000 000004 MOV $1 R000. 4(R4) 
100000 #OWN. Ri 


000002 2(R4) ,R3 
000014 PROTOT(R3) ,R3 
050544 o—= 
050546 R3,PROTO2 

10$ 


GETRNX #RRGCUR 
GETRNX #RRGNXT 
NIRCNT 


MOVE STATUS OF PACKET TO R1 
RESET RING DESCRIPTOR 
SEE WHO OWNS 


IF STILL ED 
MOVE BUFFER ae 3 INTO R3 
MOVE PROTOTYPE INTO R3 
SEE IF IT IS AN ACCEPTABLE PROTOCALL TYPE 


IF YES, CONT. 
a x CHECK OTHER GOOD TYPE 


K, 
ELSE, THROW OUT AND UPDATE 
CURRENT AND NEXT POINTERS 

DECREMENT RECEIVE COUNTER 
BR 60$ EXIT 
040000 : #ERRS ,R1 SEE IF ANY 
20$ FOR NO ERRORS BR TO 20$ 
005237 050536 RCVERR ELSE, INCREMENT RECEIVE ERROR COUNTER 

#RECERR PRINT ERROR MESSAGE 

012746 052631 MOV rym Sea 


001415 


005337 050516 
000435 


000001 


000004 
5$ ; UPDATE POINTERS AND RETURN 
050540 : RCVBUF ; INCREMENT GOOD BUFFERS RECEIVED COUNTER 
$ 2 KEEP COUNT OF ey ay 


R ; KEEP OF HOW FERS RECEIVED 
050516 NIRCNT ; KEEP BOOKKEEPING IN O 
GETRNX #RRGCUR ; UPDATE “RECEIVE RING CURRENT" POINTER 


11,EMSG11,ERR1 ; RECEIVE RING BOOKKEEPING ERROR 
TRAP CSERDF 


“WORD EMSGII 
072202 : RETURN R2 ; RETURN WITH NUMBER OF ENTRYS HANDLED 


EDPACK ETHERNET DATA PACK 


THIS ROUTINE 4 CONVERT A Bly OF HEX CHARACTERS Hep A yt 
JUSTIFIED BINA STREAM COMPATIBLE 
ETHERNET "CONVENT IONS. N 

EITHER WORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE a STRING WILL BE BYTE ORIENTED AS 
REQUIRED BY THE ETHERN 

LO-BYTE-WwORDO H1=BYTE-WORDO LO-BYTE-WORD1 HI-BYTE-WORD1, ETC. 


INPUT ARGUMENTS P1 = ADDRESS OF THE ace (HEX) STRING 
TO BE CONVERTED T ST 


BUFFER WHIC C 
PS - ee CIN BYTES) OF THE DESTINATION 


BUFFE 
EXPLICIT OUTPUTS P4 = ZERO IF SUCCESSFUL, -1 IF BUFFER TOO 
LONG OR ODD NUMBER OF HEX CHARACTERS 


De Be Be Se Ge Se Be Be Be Be Be Ge Se Be Se Fe Se Be Se 
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CZUACA.P11 


072206 
072320 


072322 
072332 


072356 
072362 
072364 


672366 
072370 


672406 


072412 
072414 


072424 
072426 


19=JUL=83 17:13 


000112 
000000 


005002 
006303 


005702 
001010 


006203 


000000 


010204 
063704 072412 


MACY11 


LOCDST: 
SOURCE : 


EDPACK: 


oe ft 


Tote Se Se Be Be Be Be Be Be Be Se Se Be Se Be Se Be Se Be Be Se 


HXF ORM: 


Ll 7 
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EDPACK ETHERNET DATA PACKING ROUTINE 


IMPLIED OUTPUTS THE BUFFER AT P2_ WILL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM W/ oye ZEROS 
AND CORRESPONDING TO HEX STRING AT R5. 
SUBORDINATE PROCEDURES HXFORM. (STRIP NONHEX CHARAC Ly 2a 
HEXBIN. (HEX TO BINARY CONVERSI 
CALLING PROCEDURE CALL _EDPACK P1,P2,P3 3 INPUT PPS PARAMETERS 
P$POP P4 OUTPUT P4 PARAMETER 


SEQ 89 


-BLKB 74, X NUMBER OF CHARACTERS THAT MAY BE ENTERRED 
“WORD SSOURCE ADDRESS 
PSPOP SOURCE ,R4,R3 3R4-DESTINATION, R3-NUMBER OF CHARS ROD 
SOURCE=SRC ADDRESS, ORIENT-WORD/BYTE ? 
CLR = R2 ZASSUME NO ERRORS, VALUE RETURNED | 
ASL = R3 NUMBER OF CHARACTERS REQUIRED W/ ‘''S 
CALL_  HXFORM SOURCE ,#LOCDST,R3™ 
PSPOP = R1,R2 :RISADDRESS OF LAST CHAR 
:RE=SUCCESS/FAIL CODE (0/-1) 
TST = R2 Ri WILL POINT TO RIGHTMOST CHARACTER 
BNE 9S ERIGHT JUSTIFY BUFFER 
:CONVERT HEX AT LOCDST TO BINARY 
ASR RB :R3 BYTES IN OUTPUT BIT STREAM 
CALL —- HEXBIN #LOCDST,R4,R3 
RETURN R2 :RETURN WITH SUCCESS/FAILURE INDICATION 
HXFORM HEX FORMAT ROUTINE 


THIS ROUTINE WILL ACCEPT A HEX STRING, AND Bye OUT THE NON-HEX 
CHARACTERS yo Me tf FLAGGING AN ERROR FOR THE NON-HEX CHARACTERS). 
A NULL WILL BE LEFT AS THE END OF STRING DELIMITTER. 


INPUT ARGUMENTS Pi=- ADDRESS OF THE SOURCE seinat STRING (NULL 
DELIMITTER AT END OF 
P2= ADDRESS OF THE DESTINATION ASCII HEX STRING 
(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 
P3- THE NUMBER OF HEX CHARACTERS DESIRED aR4 
EXPLICIT OUPUTS P4- WILL CONTAIN THE ADDRESS OF THE LAST 


CHARACTER IN THE OUTPUT BUFFER. 
PS= THE SUCCESS/FAILURE (0/-1) INDICATOR 


IMPLICIT OUTPUTS THE BUFFER AT R4 WILL CONTAIN FORMATTED 
HEX (ASCII) STRING. 
CALLING PROCEDURE CALL_HXFORM P1,P2,P 
P$POP P4,P5 
. WORD 
P$POP R3,R2,HXN sADDRESS OF SOURCE STRING 
ADDRESS OF DESTINATION STRING 
;NUMBER OF HEX CHARACTERS DESIRED 
MOV R2,R4 sDESTINATION ADDRESS, R2: DESTINATION POINTER 
ADD HXN,R4 POINT TO END OF OUTPUT BUFFER (DESTINATION) 


3D0 WHILE NO NULL FOUND IN SOURCE STRING 
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4733 072432 112301 1$: MOVB (R3)+,R1 3GET BYTE IN QUESTION (& POINT TO NEXT BYTE) 
4734 072434 142701 000200 2$: BICB #200,R1 ZENSURE HI BIT IS LO (SEVEN BIT ASCII) 
4735 ;CHECK FOR VALID HEX CHARACTER 
4736 072440 001414 BEQ 4$ ;THE NULL_IS A VALID CHARACTER = THE LAST) 
4737 072442 120127 000060 CMPB R1,460 31F GREATER THAN ‘‘0"* THEN RANGE 0 
4738 072446 100413 BMI 6$ 36$-OUT OF RANGE, BYTE “S 100 MALL 
4739 072459 120127 000072 CMPB R1,472 sIF BYTE IS LESS THAN 72 AND >=60 THEN RANGE OK 
4740 072454 100406 BMI 4$ — OK_IF >=60 AND aE Else, CONTINUE CHECK 
4741 072456 0127 000101 CMPB R1,4101 sBYTE MUST BE >=101 TO CONTINUE CHECK 
4742 072462 0405 BMI 6$ 31F BYTE >71 AND <101 THEN BYTE OUT OF RANGE. 
4743 072464 2701 000106 CMPB #106,R1 BYTE MUST BE <=106 TO BE ELSE: NOT 

072470 BMI 6$ ; DON'T PLACE THis BY BYTE Hs OUTPUT. 






072472 


R1,(R2)+ 
072474 9$ 


sBYT 

NEXT BYTE DEST ADDRESS. IF NULL, THEN EXIT. 
+ (NO ERRORS) 

;1F NOT NULL, THEN CHECK FOR BUFFER OVERFLOW. 




















4750 3R4 POINTS TO LAST CHARACTER POSITION (OUTPUT) 
4751 072476 020402 6$: cMP R4,R2 7R2 = PRESENT WRITE ADDRESS 

4752 072500 100354 BPL 1$ 3 (SHOULD BE POSITIVE ARESULT OR te (MORE TO DO) 
4753 072502 012704 177777 7$: MOV #-1,R4 SET ERROR CONDITION (EXIT WITH ERROR) 

4754 072506 000404 BR 11$ ZERROR DETECTED EXIT PATH => (TOO MANY CHARS) 


4756 SUCCESSFUL EXIT PATH 


4757 072510 005302 9$: DEC R2 ;POINT TO THE LAST ACTUAL seg Ho AT DEST BFR 
4758 072512 020402 CMP R4,R2 sCHECK FOR MINIMUN OF 12 CHARACTERS. 

4759 072514 001372 BNE 7$ sBRANCH IF LESS THAN 12, ERROR ° 

4760 072516 005004 CLR R4 zs INDICATE SUCESS 

4761 072520 11$: RETURN R2,R4 sADDRESS OF LAST CHARACTER (R2) IS P4 

4762 ERROR INDICATOR (R4) IS P5 


reset : HEXBIN HEX TO BINARY CONVERSION PROCEDURE 
4767 : THIS PROCEDURE WILL Be et yl A STRING OF HEX (ASCII) CHARACTERS 
4768 : DIRECTLY TO A areas a oe THE os * we! BINARY STREAM WILL 
4769 : REQUIRE ONLY HALF AS MANY BYTES AS THE HEX STRING BECAUSE TWO 
re hh : HEX CHARACTERS ARE REQUIRED TO REPRESENT A SINGLE BINARY BYTE. 
4772 : INPUTS Pi = SOURCE STRING ADDRESS a hh BY A mat? 
4773 ; P2 = DESTINATION ADDRESS FOR THE BINARY DATA 
4774 : P3 = THE NUMBER OF BINARY BYTES REQUIRED (HALF THE 
4775 : NUMBER OF CHARACTERS AT P1. 

4776 : OUTPUTS NO EXPLICIT OUTPUTS 

4777 : IMPLIED OUTPUTS THE BUFFER AT P2 WILL CONTAIN THE BINARY 
are ; siete CONVERTED DIRECTLY FROM THE BUFFER 
4780 : SUBORDINATE PROCEDURES NONE 

ted ; CALLING PROCEDURE CALL HEXBIN P1,P2,P3 


4783 072526 000000 HN: - WORD 

4784 072530 030460 031462 032464 CMPSTR: .ASCIZ /0123456789ABCDEF / 
4785 072536 033466 034470 041101 

4786 072544 042103 043105 000 


072552 ~EVEN 





N 7 
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072552 


072562 
072566 


060237 
012704 


072526 
072530 


HEXBIN: P$POP 


R1,R2,HN 


R2.HN 
#CMPSTR,R4 


+R1=SOURCE STRING ADDRESS 
ae ay DESTINATION STRING ADDRESS 
N=NUMBER OF BYTES REQUIRED 


sHN NOW POINTS TO THE LAST_BYTE_POSITION+1 


sPOINTER IN THE COMPARE STRING 
(R1),(R4)+ ;COMPARE CURRENT CHAR WITH A_CHAR IN CMPSTR 
2$ ; ER IN LIST 
sPOINT T YTE 
3R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 
7 THE NIBBLE abt gee BY THE CURRENT BYTE. 
;NOTE: NIBBLE IS THE HI PORTION OF THE BYTE 
;MOVE NIBBLE TO THE HI END OF THE BYTE 


R1 
072531 #CMPSTR+1,R4 


006304 
006304 
006304 
006304 
010403 


072530 


072614 
072616 


SAVE THE HI NIBBLE 


#CMPSTR,R4 
(R1), (R4)+ 
3$ 


sPOINTER INTO COMPARE STRING 
COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 
FOUND ie PSTR LIST 


SCII BYT 
NS THE ACTUAL BINARY by FOR 
RENT BYT 


R1 
072630 2704 072531 #CMPSTR+1,R4 


H BYTE 
R4,R3 NOW THE TWO CHARACTERS HAVE MADE A SINGLE BYTE 
NOW PLACE THE COMPLETE BYTE IN THE DESTINATION 
R3,(R2)+ [AND POINT TO THE NEXT DESTINATION BYTE 
072526 R2,HN 31F THE DESTINATION POINTER CR2) REACHES THE 
BMI 1 SLAST CHARACTER POSITION+1 CHN) THEN DONE. 
RETURN ZRETURN TO CALLER 


072634 
072636 
072640 


050403 


110322 
020237 
100750 


BINHEX BINARY TO HEX CONVERSION PROCEDURE 
THIS PROCEDURE WILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 


INPUTS = Pi= BINARY DATA BUFFER ADDRESS 
P2=- NUMBER OF BYTES IN THE BUFFER 
3- T BUFF . ats HEX STRING. 


(NOTE: THIS BUFFER MUST BE AT LEAST “3eb2 BYTES LONG) 


OUTPUTS = NONE 
IMPLICIT OUTPUTS THE BUFFER AT P35 WILL CONTAIN THE HEX STRING 
FOLLOWED BY A NULL CHARACTER. 
SUBORDINATE ROUTINES NONE 
CALL BINHEX P1,P2,P3 


CALLING PROCEDURE 
eASCII = /0123456789ABCDEF / 


072650 031462 032464 


030460 
6 034470 041101 
043105 


072670 600000 - WORD 
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4845 
4846 072672 BINHEX: P$POP R1,LST,R2 3R1 HAS THE INPUT BUFFER ADDRESS 
4847 LST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
4848 R2 HAS THE OUTPUT BUFFER ADDRESS 
4849 072702 060137 072670 ADD 1,LST zsLST IS NOW ADDRESS OF LAST SOURCE pad +1 
4850 072706 112103 1$: MOVB (R1)+,R3 sGET THE CURRENT BYTE AND POINT TO NEXT BYTE 
4851 072710 110304 MOVB R3,R4 3; SEPARATE Saye AND GET CHARACTERS SEPARATELY 
4852 072712 042703 177760 BIC #177760,R3 SONLY RIGHT BINARY NIBBLE REMAINS IN R35 
4853 072716 006204 ASR RG sSHIFT OVER FOR LEFT BINARY NIBBLE IN R4 
4854 072720 006204 ASR RG 
4855 072722 006204 ASR KS 
4856 072724 006204 ASR R4 
4857 072726 042704 177760 BIC #177760,R4 sONLY LEFT BINARY NIBBLE REMAINS IN R4 
4858 RG IS THE MOST SIGNIFICANT NIBBLE (FIRST) 
4859 3R3 IS THE LEAST SIGNIFICANT NIBBLE (SECOND) 
4860 072732 116422 072650 MOVB phic g (R2)+# ;PUT THE ASCII BYTE INTO THE BUFFER HI POSITION 
4861 072736 116322 072650 MOVB HEXC( R3),(R2)+ PUT THE ASCII are INTO THE BUFFER LO POSITION 
4862 072742 112722 000055 MOVB #*=,(R2)+ PUT - BETWEEN HEX PAIRS 
4863 072746 020137 072670 CMP R1, LST ZRESULT IS NEGATIVE UNTIL R1=L 
4864 072752 103755 BLO 1$° SUNTIL RI=LST. (TRANSFER ALL SOURCE A sirens 
4865 072754 105042 CLRE =(R2) 3; TERMINATE OUTPUT BUFFER WITH A NULL 
4866 072756 RETURN 
is 
rt -SBTTL BLDLD BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT. 
4871 poet 
4872 3 FUNCTIONAL re cee 
4873 3 THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
4874 3 FROM TH 3 UNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
4875 ; PROT. TYPE, AND LOOP DIRECT HEADER INFO ARE ADDED 
4876 3 TO THE TRESSAGE BUFFER. THE MESSAGE SUFFER IS BUILT 
re ied 3 BY A CALL TO BLDBUF. 
4879 3; INPUTS - P1 = THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
4880 3 IMPLICIT - atte CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
4881 3 XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
sees ; PRYADR HOLDS THE CURRENT LOCAL UNA PHYSICAL ADDRESS 
rest: ; OUTPUTS - BUILT MESSAGE PACKET. 
rt} 3; CALLING PROCEDURE = CALL BLDLD P1 
4888 3; SIDE EFFECTS = THE a gees PACKET IS BUILD AND CONTAINED IN THE 
4889 5 BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS ENTERED. 
rete ; XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 
4892 ; REGISTER USAGE = R1 HOLDS ADDRESS OF oth ade ADDRESS 
4893 ; R2 IS A POINTER FOR THE LOOP DIRECT HEADER INFO 
4894 ; R3 HOLDS THE PACKET LENGTH 
rt 3 R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 
4897 poet 
4898 
4899 072760 BLDLD:: 


4900 072760 P$POP RI ; PUT ADDRESS OF DEST. ADDRESS IN R1 


CZUACAO_DEUNA NI oe eis ° AGNOSTIC 
CZUACA.P11 


072762 
072766 


073240 


19=JUL=83 1 
013704 
03 


010437 
000411 
104455 
000404 


104455 


067460 


003762 
100000 


002756 
050566 
0 


050570 


000004 


050560 


000014 


000022 


000036 


MACY11 30A(1052) 
BLDLD 


40$: 


45$: 


60$: 


Cc 8 
20-JUL-83 13:27 


SEQ 93 


E 94 
BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT. 


BR 
ERRDF 


RETURN 


XRGNXT ,R4 
#OWN,4(R4) 


R3,BUFLEN 
(R1)+,DESTIN(R4) 
(R1)+,DESTINE2(R4) 
(R1) ,DESTING4 (R4) 
SOURCC(R4) 

he dae 
SOURCC+4 (R4) 
PROTOO, PROTOT(R4) 
#LOPDIR,R 
(R2)+,LDSKIP(R4) 
ba CT1(R4) 


PHYADR+4 , LDADR2+4 (R4) 
#LDADR2+6,R 

R4, CMPBUF 

BLDBUF R4 

GETXNX #XRGNXT 


13,EMSG10,ERR1 


60$ 
14,EMSG14,ERR1 


IF DON'T OWN 
: POINT R4 TO DATA 


; MOVE NEXT PACKET ADDRESS TO R4 
; CHECK gt IP BIT 


BOOKKEEPING ERROR, 
A BLO y 
T MESSAGE SIZE INTO 


R3 
; ADD HEADER AND LOOP DIRECT INFO TO LENGTH 
; PUT BYTES TRANSFERED INTO WORD 


AND CORRECT FOR HEADER 


; SEE IF LONGER THAN ONE PACKET 
IF YES, OR 
; PUT PACKET LENGTH IN 
MOVE 


BUFLEN 
FIRST TWO BYTES OF ADDRESS 
AND FOUR 


E AND SIX 
LEAVE BLANK ted FOR SOURCE ADDRESS 
SIX BYTES WORTH 


MOVE PROTOCALL TYPE INTO HEADER 
ng: tee FORMAT HEADER LOC. TO R2 


COUNT 
FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES 


FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 


POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 
BUILD DATA BUFFER 

AY ies POINTER TO NEXT RING ENTRY 


EXI 
TRANSMIT RING none oe. 


P SERDF 
- WORD 
-WORD EMSG10 
eWORD = ERR1 
EXIT 
MESSAGE SIZE TOO SiG 
TRAP CSERDF 
-WORD 14 
-WORD EMSG14 
-WORD ERR1 
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CZUACA.P11 19=JUL=83 17:13 BLDFAS BUILD PACKET FOR FULL ASSIST TRANSMISSION. 


-SBTTL BLDFAS BUILD PACKET FOR FULL ASSIST TRANSMISSION. 


-+ 
FUNCTIONAL viais “1 h -- 
THIS SUBROUTINE uate’ a FULL peg? PACKETS FOR TRANSMISSION 
FROM THE UNA. SOURCE ADDRESS STINATION ADDRESS, PROT. TYPE 
AND FULL ASSIST HEADER INFO BARE. ADDED TO THE MESSAGE BUFFER. 
THE MESSAGE BUFFER IS BUILT BY A CALL TO BLDBUF. 


INPUTS = P1 = THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - ett CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL NODE ADDRESS 


OUTPUTS = THE BUILT BUFFER 
CALLING PROCEDURE = CALL BLDFAS P1 
SIDE EFFECTS = XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 
REGISTER USAGE = R1 HOLDS ADDRESS OF TARGET NODE ADDRESS 
R2 HOLDS ADDRESS OF ASSIST NODE ADDRESS 


R3 HOLDS THE PACKET LENGTH 
R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 


073242 $8 
073242 PS$POP R1,R2 ; gp Byes: OF TARGET ADDRESS INTO R1 


ADDRESS OF ASSIST ADDRESS INTO R2 
073246 013704 003762 XRGNXT ,R4 ET ADDRESS TO R4 
100000 000004 #OWN, 4(R4) HIP BIT 
40$ IF DON'T OWN, BOOKKEEPING ERROR, 
000002 2(R4) ,R4 ; POINT R4 TO DATA BLOCK 
pssize. oR3 P SS Zz 


TO LENGTH 

; PUT "BYTES TRANSF ERED INTO WORD 

AND CORRECT FOR HEA 

SEE IF LONGER THAN ONE PACKET 

IF YES, ERROR 

; PUT PACKET LENGTH IN BUFLEN 

MOVE FIRST TWO BYTES OF ADDRESS 
AND FOUR 


050560 
002756 #XPKLEN,R3 
as 


050566 FLEN 
00 RashU DESTINGRA) 
000002 ) 
000004 ) 
SOURCE (R4) 


Be Se Se Be Ge Ge Se Se Se Ge Ge Be Se Be Se Se Be 


E AND SIX 
; LEAVE BLANK a FOR SOURCE ADDRESS 
SIX BYTES WORTH 


(R4) 
000014 ; MOVE PROTOCALL TYPE INTO HEADER 
ASKIP(R4) IP 


000016 
000020 


Ri), FAADR1(R4 
000024 2(R1) ,FAADR1#2(R4) 
000026 4(R1). zEAADRI+4(R4) 
000030 w2,FAEC FcTacR4) 

073432 000002 000034 2(R2), PAARROSo<RG) 


SKIP_COUN 

FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (FORWARD) 

ASSIST NODE ADDRESS 
SIX BYTES 
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000036 


000056 


050570 


067460 
073604 


MACY11 30A(1052) 


RETURN 


20-JUL-83 13:27 PAGE 96 
BLDFAS BUILD PACKET FOR Fl’. ASSIST TRANSMISSION. 


4(R2), ce 
#2, FAFCT3(R4) 
PHYADR, CFAADRS(RG) 


MTAADRGYS.Ra 
. CMPBUF 

BLDBUF R4 

GETXNX #XRGNXT 

28,EMSG10,ERR1 


50$ 
29,EMSG14,ERR1 


FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES 


FUNCTION CODE (REPLY) 
LOCAL _NODE ADDRESS 
SIX BYTES 


POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 
BUILD DATA BUFFER 

AT POINTER TO NEXT RING ENTRY 


TRANSMIT RING ae ie ERROR 
_—— 


EMSG10 
ERR1 


; EXIT 
; MESSAGE SIZE T00 BIG 


CSERDF 
EMSG14 
ERR1 
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073606 
073606 


074122 


19=JUL=83 17:13 


013704 


000411 
104455 
000043 
064056 
067460 
000404 
104455 

00044 


0 
064755 
067460 


003762 
100000 


000002 


002756 
050566 


050570 


000004 


050560 


000002 
000004 


000014 
000016 
000020 


000024 


000046 


MACY11 30A(1052) 
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SEQ 96 


PAGE 97 
BLDAST BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 
-SBTTL BLDAST BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 


goot 


BLDAST:: 


40$: 


45$: 


50$: 


BR 
ERRDF 


RETURN 


R1,R2 


XRGNXT ,R4 
#OWN,4(R4) 
40$ 


2(R4) ,R4 
PSSIZE,R3 
#50,R3. 


#16,XFER 
#XPKLEN,R3 


FLEN 
Raid DESTIN(R4) 
2(R1) ,DESTIN+2 (RG) 
4(R1) .DESTING4 (R4) 
URCC(R4) 
SOURCC+2(R4) 


SOURCC +4 (R4) 
PROTOO,PROTOT(R4) 
A (R4) 


2(R2) , FAADR1+2(R4) 
4(R2) ,F rity (R4) 


PHYADR+4 As (R4) 


#1, FAFCTS(RG 


#FAADR3+6, 

R4, CMPBUF 
BLDBUF R4 
GETXNX #XRGNXT 


35,EMSG10,ERR1 


50$ 
36,EMSG14,ERR1 


Be Se Se Se Ge Ge Se Be Ge Ge Ge Ge Se Be Be 


PUT DESTINATION ee INTO R1 
ASSIST ADDRESS _INTO R 
MOVE NEXT Hen, Y _ TO R4 
CHECK von P BIT 
IF DON'T OWN, BOOKKEEPING ERROR 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE a R3 
ADD HEADER INFO INTO LENGTH 
PUT “BYTES T RANSFERED® INTO WORD 
AND CORRECT FOR HEADE 
SEE IF LONGER THAN ONE PACKET 
IF YES, OR 
PUT PACKET LENGTH INTO BUFLEN 
MOVE eee eaten ADDRESS INTO HEADER 
SIX BYTES WORTH 


; LEAVE BLANK SPACE FOR SOURCE ADDRESS 


SIX BYTES WORTH 
MOVE PROTOCALL TYPE INTO HEADER 
SKIP_COUNT 


K 
FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 


SIX BYTES 
FUNCTION CODE (FORWARD) 
LOCAL NODE 1 
SIX BYTES WORTH 


FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 


POINT R4 TO FIRST DATA BYTE 

STORE BUFFER aaa FOR DATA COMPARE 
BUILD DATA BUFFER 

UPDATE RING POINTER 


TRANSMIT RING BOOKKEEPING ERROR 
TRAP 


CSERDF 
«WORD 
-WORD EMSG10 
-WORD ERR1 
MESSAGE SIZE TOO BIG ERROR 
TRAP CSERDF 
- WORD 
«WORD EMSG14 
-WORD ERR1 


G 8 
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-SBTTL BLDREQ BUILD REQUEST ID PACKETS FOR TRANSMIT. 


rd 

; FUNCTIONAL wen gt 

; THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
FROM THE UNA. SOURCE ADDRESS, gall My ADDRESS, 
PROTOCALL TYPE, SEQUENCE NUMBER AND REQUEST ID 

HEADER INFOR ARE BUILT IN THIS SUSROUT INE. 


; INPUTS - IMPLICIT = THE DESTINATION ADDRESS IS CONTAINED IN ADRBUF. 
; OUTPUTS - BUILT MESSAGE PACKET 


; CALLING PROCEDURE = CALL BLDREQ 
SIDE EFFECTS - THE MESSAGE PACKET IS BUILT AND CONTAINED IN THE 


INTED TO BY XRGNXT WHEN THE ROUTINE WAS 
ENTERED. XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY. 


; REGISTER USAGE = R1 HOLDS ADDRESS OF DESTINATION ADDRESS. 
; R2 IS A POINTER FOR REQUEST ID HEADER INFO. 
R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER. 


So 


ro 


074124 on BLDREQ:: 

33762 MOV XRGNXT ,R4 MOVE NEXT PACKET ADDRESS TO R4 
100000 000004 #OWN,4(R4) ; CHECK oes SHIP 

40$ IF DON'T OWN, BOOKKEEPING ERROR 
; POINT R4 TO DATA BLOCK 
; MOVE BUFFER SIZE TO BUFLEN 
MOVE ADDRESS OF DEST. ADR. TO R1 
; MOVE FIRST TWO BYTE 7 DEST. ADR. 
AND BYTES THREE AND FOUR 

AND LAST 


rs 
R 


000002 
oetee 050566 


wb ab 
SRS 


=—MNVINVIWUNY = PNM — 


(R1) ,DESTING4 (R4) TWO BYTES 
SOURCE (R4) LEAVE BLANK SPACE FOR SOURCE ADDR. 
SOUS og (nee SIX BYTES WORTH 


SOURCC +4 (R4) 
000014 MOV enOToe. * Neale ; MOVE PROTOCALL TYPE INTO HEADER 
#REQID,R ; MOVE REQUEST ID HEADER LOC. TO R2 
(R2)+,HEADER(R4) 


BYTE COUNT 
og +, HEADER+2(R4) FUNCTION CODE (REQUEST ID) 
000022 (R2) HEADER+4 (R4) RECIEPT NO. 
GETXNX #XRGNXT ; UPDATE POINTER TO NEXT RING ENTRY 


EXIT 
21,EMSG10,ERR1 ; TRANSMIT RING BOOKKEEPING ERROR 
TRAP csener 


WORD Ensct0 
“WORD ERR 


SESSSESS 


RRR 8 nN BOS Ree 
Mron 
o 
> 


NWWNWAWW 


074260 50$: RETURN 


-SBTTL GET?NX GET NEXT TRANSMIT OR RECIEVE RING ENTRY 


od 


5 
5 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 


See eh bo he | 
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FUNCTIONAL DESCRIPTION 
THIS SUBROUTINE GETS THE NEXT TRANSMIT OR RECIEVE RING 
ENTRY. IT IS ENTERED AT SEPERATE POINTS DEPENDING ON 
WHICH RING IS BEING USED. 

INPUTS = P1 = THE ADDRESS OF THE RING POINTER TO BE UPDATED. 

OUTPUTS = wy Be Hag POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 

CALLING PROCEDURE = CALL GETXNX 4#P1 3 FOR TRANSMIT UPDATES 

CALL GETRNX #P1 ; FOR RECIEVE UPDATES 
SIDE EFFECTS = NONE 
REGISTER USAGE - ase POINTS TO THE FIRST ENTRY IN THE RING 


POINTS TO THE LAST ENTRY IN THE RING 
R3 IS THE ADDRESS OF THE RING POINTER TO BE UPDATED 


074262 £8 

013701 003754 MOV RRGSRT ,R1 MOVE FIRST RING ENTRY TO R1 
013702 003770 RRGLST ,R2 ; MOVE LAST RING ENTRY TO R2 
074272 000404 BR GETCOM ; GO TO COMMON CODE 


074274 GETXNX: : 
013701 003752 MO XRGSRT ,R1 
013702 003766 MOV al +R2 

GETCOM: 

021302 CMP (a3) .R2 
001403 1 
062713 000012 #10.,(R3) 
000401 


010113 : MOV R1,(R3) 
074322 25$: 


MOVE FIRST RING an oy TO R1 


I 
F POINTER POINTS TO LAST "RING 
YES, BRANCH 
ELSE, ADD ENTRY LENGTH TO POINTER 
POINT POINTER TO FIRST ENTRY IN RING 


-SBTTL BLDBUF BUILD MESSAGE BUFFERS 


sont 

; FUNCTIONAL DESCRIPTION 

. THIS SUBROUTINE CREATES A MESSAGE BUFFER TO BE USED 
FOR TRANSMISSION. 


: INPUTS = P1 = BUFFER LOCATION TO PUT BUILT MESSAGE 

: IMPLICIT = P$SIZE CONTAINS THE SIZE THE were IS TO BE 
: P$TYPE CONTAINS THE MESSAGE TYPE 

3 OUTPUTS - IMPLICIT = BUFFER STARTING AT LOCATION P1 CONTAINS A 

: MESSAGE P$SIZE BYTES LONG USING THE MESSAGE 
: TYPE SPECIFIED BY PSTYPE. 


; CALLING PROCEEDURE = CALL BLDBUF P1 
; SIDE EFFECTS = NONE 


00 00 00 00 COCO SIN RAQAAOOACDCHVUMMUIVNUNUIVIVIE BEE 
VOLO VSB VM SMV VMS BAVARIAN VSS SAS ASA ISSSNSALUNVS SENSES 


51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 


oO 
N 
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; REGISTER USAGE = R1 Oe he Ms Sige BUFEER.. OF STORED MESSAGE TO BE BUILT 


I 
R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 


R3 ; PUT BUFFER — INTO_R3 
013702 002370 MO ogee ; PUT at ae} YPE INTO R2 


; MULTIPLY BY 
002372 PS$SIZE,R4 ; PUT SIZE INT 
; MAKE LAST ROYTE OF BUF 


R3,R R4 = FER 
003316 MSGAD(R2),R1 ; POINT R1 16 FIRST BYTE OF STORED MESSAGE 
050542 COUNT ; CLEAR =e COUNTER 
050542 : COUNT ; COUNT NO. OF BYTES COPIED 

(R1)+,(R3)+ ; PUT BYTE _IN F 
003300 050542 CMP MSGCNT(R2) , COUNT ; ARE WE AT END OF STORED MESSAGE 

BN ; IF NO, CHECK IF DONE 

003316 es R1 ; ELSE, POINT R1 TO BEGINING 
COUNT ; EAR COUNTER 


7 - 050542 AND CL 
R3,R4 ; IS BUFFER FILLED? 
001363 108 ; IF NO, LOOP 
ELSE. RETURN 


rrr 
SRVEAR 


h4d-4b-4)-¢+-4+ 4+ 4) th 4+ 44+ tt uw 
WONOUSWN—O 
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074406 
074406 


074414 
074416 
074422 


074510 


001412 


050550 


050550 
000005 050550 


066754 
000004 


000012 


000000 050550 


J 8 
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-SBTTL DATCMP COMPARE DATA BUFFERS 


2 eo ft 


FUNCTIONAL Ets tae 
THIS SUBROUTINE Stge 3. TWO The BUFFERS BYTE BY BYTE. 
IF COMPARISON ERRORS OCCURED, ED 
AND RECIEVED DATA ARE PRINTED OR 
ERRORS. THE TOTAL NUMBER OF FRRORS IS ALSO PRINTED. 


INPUTS = Pi = THE SIZE (IN BYTES) OF BUFFER TO BE COMPARED. 
P2 = THE ADDRESS OF BUFFER © COMPARE OTHER BUFFER AGAINST. 
P3 = THE ADDRESS OF THE SECC © BUFFER. 

OUTPUTS = P4 = THE NUMBER OF COMPARISON ERRORS. 


CALLING PROCEDURE = CALL DATCMP P1,P2,P3 
PSPOP P4 


SIDE EFFECTS = NONE. 


REGISTER USAGE = R1 CONTAINS THE COMPARE SIZE 
R2 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 1 
R3 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 2 
R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 


e 
. 
e 
o 
° 
. 
e 
. 
° 
= 
e 
. 
° 
. 
e 
. 
e 
° 
. 
. 
° 
. 
° 
° 
° 
. 
e 
o 
e 
° 
e 
a 
© 
a 
e 
° 
° 
. 
e 
+ 
e 
. 
° 
° 
e 
. 
e 


R1,R2,R3 ; PUT COMPARE SIZE IN R1 


: BU S INR 

RG : INITIALIZE BYTE OFFSET 

TEMP : AND ERROR COUNTER 

R4 ; INCREMENT OFFSET COUNTER 

(R2),(R3) : COMPARE BUFFERS 

20$ : IF SAME, BRANCH 

TEMP : INCREMENT ERROR COUNTER 

#5, TEMP ; IF MORE THAN 5 ERRORS, 

BLT 20$ > DON'T PRINT MESSAGE 

PRINTX #CMPER1,R4,(R2),(R3) = PRINT ERROR MESSAGE 
(R3) ,-(SP) 
(R2),=(SP) 
R4,-<SP) 
#CMPER1,-(SP) 
#4 .=(SP) 

CSPNTX 

ADD #12,SP 

1 POINTER 

R2 POINTER 

SIZE 

ED, 60 <BACK FOR MORE 





CZUACAO DEUNA 
CZUACA.P1 
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RAK 


074536 


074544 


074624 


023727 
001002 


000402 
012701 


050550 000091 


002656 


177777 


000026 
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DATCMP COMPARE DATA BUFFERS 


PRINTX #CMPER2, TEMP 
TEMP, -( 
PeMPER? = (SP) 
#2.-(SP) 


SP,R 
CSPNTX 
ADD #6,SP 
30$: RETURN TEMP 3 RETURN WITH ERROR COUNT ON STACK 


-SBTTL WRITES WRITE DATA ONTO SUMMARY TABLE 


=+ 
FUNCTIONAL Ris hie 
THIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 
THE NODES SPECIFIED IN THE CALL STATEMENT. EITHER ONE 
OR TWO NODES CAN UPDATED PER CALL. AFTER THE 
THE SUMMARY DATA COUNTERS ARE CLEARED. THE SUMMARY TABLE 
IS_CHECKED FOR A MATCHING es: ADDRESS .- UPDATES THE 
cart 4 THAT NODE, OR ADDS THE NODE TO THE TABLE IF IT 
AN ERROR IS REPORTED IF THE END OF THE TABLE 
IS REACHED. 


INPUTS = P1 = THE NUMBER OF NODES TO UPDATE (1 OR 2). 
P2 = THE ADDRESS OF THE FIRST NODE ADDRESS. 
PS - yp Png: y Me ang SECOND NODE ADDRESS IF P1 = 2 OR 


OUTPUTS =- THE SUMMARY TABLE IS UPDATED. 

CALLING PROCEDURE - CALL WRITES P1,P2(,P3) 

SIDE EFFECTS = THE SUMMARY COUNTERS ARE CLEARED. 

REGISTER USAGE = R1 ciate TO THE CURRENT LOCATION IN THE SUMMARY TABLE. 
R2 P ay tt A TO THE NODE TO BE UPDATED’S ADDRESS. 


R3 IS ATCH 
R4 HOLDS” THE SECOND NODE TO BE UPDATED ADDRESS. 


a 
e 
. 
e 
. 
e 
. 
e 
° 
e 
. 
e 
e 
° 
e 
. 
e 
a 
e 
a 
e 
° 
e 
© 
e 
. 
e 
. 
oe 
. 
° 
. 
e 
. 
eo 
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e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
° 
e 
. 
@ 
o 
e 
. 
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ue 


WRITES: P$POP TEMP ; SEE HOW MANY NODES TO WRITE 
CMP IF ONLY ONE, GET ADDRESS 


R2 

R2,R4 IF TWO, GET BOTH ADDRESSES 

#STATBL,R1 ; MOVE STATISTICAL TABLE ADDRESS INTO R1 
(R1) ; SEE IF SLOT IS EMPTY 


15$ ; _IF YES, BR 
(R1) ,A=1 ; 7 1 TABLE FULL 
fas R1,R2 ; LOOK FOR MATCHING ADDRESS 


20$ ; IF YES, BR 
#26,R1 ; ELSE, POINT R1 TO NEXT ENTRY 
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074639 000761 


15$: 


000002 000002 
000004 000004 
000006 


000715 
012746 
800002 


000006 


364 
365 
366 
367 
368 


005037 050510 


075012 


MACY11 30A(1052) 
WRITES WRITE DATA ONTO SUMMARY TABLE 


20$: 


L 8 
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AND CHECK AGAIN 
ADD NEW Hye. B TO TABLE 
SIX BYTES WORTH 


POINT R1 TO DATA 
UPDATE SUMMARY DATA, RECEIVES NOT COMPLETE 
RECEIVES ag ETE 
LENGTH ERR 
COMPARE ERRORS 
BYTES COMPARED 
IF OVERFLOW, INCREMENT NEXT WORD 


POINT R1 TO NEXT DATA 
BYTES TRANSFERE 
IF OVERFLOW, INCREMENT NEXT WORD 


POINT R1 TO NEXT DATA 
DES COUNTE 


Be Se Ge Ge Ge Se Se Ge Be Se Se 


#SUMM,- 
ATABFUL.=(SP) 


ADD 
; CLEAR SUMMARY DATA COUNTERS 


CLR 
RETURN 


SEQ 102 
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SEQ 103 


-SBTTL BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


-+ 

FUNCTIONAL DESCRIPTION: 
THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUMBER TO 
A DECIMAL NUMBER REPRESENTED AS AN ASCIZ STRING. 


INPUTS = Pl - | ADDRESS OF THE FIRST WORD OF BINARY DATA 
BITS 0-15. THE SECOND WORD, BITS 16-31, IS 
EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 


OUTPUTS = THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 
SIDE EFFECTS = NONE 
REGISTER USAGE = R171 POINTS TO BITS 0-15 OF BINARY DATA 

R2 POINTS TO BITS 16-31 OF am DATA 


R3 POINTS TO THE OUTPUT STR 
R4 POINTS TO THE POWERS OF 10° TABLE 


Be Pe Ge Se Se Se Ge Ge Ge Ge Be Ge Ge Ge Ge Be Ge Ge Ss 


075014 
R1 ; PUT ADDRESS OF BINARY WORD INTO R1 
010546 R5,~(SP) 
R1,R2 ; PUT ADDRESS OF SECOND WORD INTO R2 
000002 


#2,R2 
#DECSTR,R3 ; PUT ADDRESS OF OUPUT STRING INTO R3 
#TENPWR,R4 ; ADDRESS OF TEN POWER TABLE 
#TENPWRE2,RS 
075116 #10. ,4$ 
075214 1$: PART ; CLEAR PARTIAL COUNTER 
: (R4),(R1) ; SUBTRACT 10 POWER 


R 

{G07 -(82) 
075214 ad ; te ADD 1 TO PARTIAL 

a ata ; RESTORE BINARY WORDS 


; BRANCH IF 10 POWER TOO LARGE 


; AND POINT R4& TO NEXT TABLE ENTRIES 
(R4)+, (R2) 
(R5)+,(R5)+ 
000060 075214 #°O,PART ; CHANGE PARTIAL TO ASCII 
075214 PART, (R3)+ ; AND PUT INTO OUTPUT STRING 
(PC)+ ; HAVE WE DONE ALL 10 DIGITS 


1$ ; IF NO, BRAN 
(R3)+ ; IF YES, TERMINATE WITH ZERO 
012605 (SP)+,R5 
075126 RETURN 


075130 145000 TENPWR: 145000 ; 1.0 E09 


5632 
; 1.0 £08 
075136 002765 



















CZUACAO DEUNA NI eg DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 105 
CZUACA.P11 19=JUL=33 17:15 BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


5429 075140 113200 113200 : 1.0 £07 
5431 075144 041100 931100 : 1.0 £06 


: 1.0 E00 


5433 075150 103240 103240 : 1.0 €05 
5434 075152 000001 1 
5435 075154 023420 23420 : 1.0 E04 
5436 075156 000000 
5437 075160 001750 1750 : 1.0 €03 
5438 075162 000000 0 
5439 075164 000144 144 : 1.0 E02 
5440 075166 000000 0 
5441 075170 000012 12 : 1.0 €01 
5442 075172 000000 9 

0 


5444 075176 000000 


5446 075200 000014 DECSTR::.BLKB 12. 
5447 075214 000000 PART:: .WORD 0 





12 BYTES FOR ASCIZ OUTPUT STRING 
PARTIAL COUNTER 
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075216 


075312 


075314 


075330 


013704 


000760 


000114 


000744 


121314 


005204 
004737 


17:1 


003144 
003146 
000003 


000013 


075266 
075266 


075364 


075344 
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BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


SEQ 105 


~SBTTL COMMAND LINE TRAVERSE ROUTINES 


++ 
: PSTRV SUBROUTINE 


PARSE THE COMMAND LINE SUBROUTINE 
sTAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
;PARSING a FROM *'CLI PARSING NODES" 


R1,R5=SCRATCH PSNUM=NUMERIC CODE FROM DATA 
R2=ACTION CODE mina FROM TREE 
R35=PARSE TREE POINTER 
R4=INPUT STRING. POINTER 
ener ™ ae i 
PC,PSTRV 


PSTRV: 
PSBUFA,R4 
M PSTREE ,R3 
P$TRS: CMPB (R3), a3 sSEE IF ONE OF FIRST THREE ee. CODES 
=] 7 TIF YES, A. T CHECK INPUT 
3SEE IF ANY CHARS LEFT IN Input STRING 
PSEXIT F 


(R3) #11. 7SEE IF SPECIAL CLI CHAR CODE OR ASCII 
BR_IF REGULAR ASCII CHAR. 


20$ 

aa sGET SPECIAL CHAR CODE INTO R5 
10$(R1),R1 BUILD TRAVERSE ROUTINE ADDRESS 
#10$,R1 


PC, (R1) zJSR TO SPECIAL CLI TRAVERSE ; ees 
P$TR5 7GO SEE IF MORE OF STRING LEFT 


TRVERR~10$ sTRAVERSE TABLE FOR ‘CLI FUNCTIONS’ 


—OONOULSWN— 


TRVSTR=10$ 
zNOT A SPECIAL CODE 
20$: (R35), (R4) saee IF FIRST CHAR OF STRING IS A MATCH 


3 A H 
PC, TRVBRC ‘IF NOT A MATCH, GO TAKE MISS BRANCH 
BR P$TR5 ; THEN GO BACK PT'G TO MISS NODE 
22$: R4 IF A MATCH, INCR. CHAR POINTER 
PC, TRVACT ; GO DO ACTION DEFINED BY 


Be Pe Fe Be Ge Ge Be Ge Se Be 
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5505 
5506 
5507 
5508 


5509 
5510 


MMM VMA VIM AMI UU 
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po aa aeteteetete 


BRRELRE 
CONUS 


QVM 
SUONOUSWN oO 


075334 
075340 
075342 


075364 
075370 
075372 


075374 
075400 


075402 
075406 
075414 
075416 


075422 


075440 
075444 


075450 
075466 


075472 


075506 
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062703 
000732 
000207 


016301 
060103 
000207 


062703 
000207 


004737 


000137 


004737 


000137 


004737 
000137 


004737 


000772 


000004 


000001 
177400 
003150 


000002 


000004 


075344 
177777 


075342 
075344 
003161 
075342 


075344 
075364 


075344 
003161 


075364 
075374 


000011 


003161 
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ADD #4 ,R3 
BR P$TRS 
PSEXIT: RTS PC 
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COMMAND LINE TRAVERSE ROUTINES 


3 ACTION CODE IN CLI NODE, THEN 
: ADJUST PTR TO NEXT CLI NODE 


RETURN FROM PARSER 


:GOTO USER ACTION ROUTINE 

TRVACT: MOVB  1(R3),R2 

BIC #177600, R2 
PSACT,R 


MOV Ri 
JSR PC, (Ri) 
RTS PC 


3 TAKE BRANCH IN TREE 
TRVBRC: MOV 2(R3) ,R1 
ADD R1,R3_ 


3NO BRANCH TAKEN 
TRVNOB: ADD #4,R3 
RTS PC 


ERROR HANDLING 


TRVERR: JSR PC, TRVACT 
MOV #-1,P$GDBD 
TST (SP)+ 
JMP PSEXIT 
EXIT ACTION CODE 
TRVEXI: JSR PC, TRVACT 
CLRB P$GDBD 
TST (SP)+ 
JMP PSEXIT 
— ACTION CODE 
RVBR: JSR PC, TRVACT 
JMP TRVBRC 
a ACTION CODE 
RVBIF: JSR PC, TRVACT 
PS$GDBD 
BEQ 
JMP TRVBRC 
1$: JMP TRVNOB 


SPACE ACTION CODE 


TRVSPA: CLR R 
1$: CMPB (R4) ,#11 
2$ 
INC R4 
INC R1 
BR 1$ 


sGET ACTION CODE FROM CLI NODE 
CLEAR ANY SIGN EXTENSION 
_ 3ET ADDRESS OF CLI ACTION ROUTINE 


*30_ DO ACTION DEFINED BY CODE 
:RETURN TO CALLING CODE 


3GET BRANCH DISPLACEMENT FROM TREE 
3 AND POINT R3_TO THE ‘MISS‘* NODE 
; RETURN TO PSTRV 


+ THINGS OK, UPDATE R3 TO — TO NEXT 
3 NODE AND RETURN TO PSTR 


3 TAKE ERROR nM ay 
3SET ERROR RETU 
T OF TRVERR®* 


;GET RI PUSH TO TR 
RETURN DIRECT TO EXIT OF PSTRV ROUTINE 


sTAKE EXIT ACTION . 
:SET GOOD/BAD, FLAG TO “SUCCESS (0)"° 
:GET RID OF “JSR PUSH TO TRVEXI' 

ZRETURN DIRECT TO EXIT OF PSTRV ROUTINE 


GO TAKE BRANCH ACTION 


sSEE_ IF PS$GDBD SET OR owe BY ACTION 
z1F CLEAR fa THRU TO atl NODE 

ELSE TAKE THE "MISS'' BRANCH 

;JUST UPDATE TO NEXT NODE IF THINGS OK 


7 CLEAR ae OR TAB FOUND'* FLAG 
:SEE IFC eo ae CMD LINE= TAB 


2 INC Input STRING: POINTER 
ZINDICATE A TAB FOUND 
7GO CHECK NEXT CHAR 


SEQ 106 


. 9 
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121427 0040 $: (R4) ,#40 sSEE i CHAR. IN CMD LINE= SPACE 
661005 “ . 10$ SPACE OR patie CHAR. 


R1 
1$ 
R1 
15$ 
075344 PC, TRVACT 
075374 TRVNOB 3 
075540 000137 075364 15$: TRVBRC 7TAKE BRANCH (MISS) IF NONE F 


075544 012737 000012 003156 TRVDEC: MOV aE Aaa sUSE DECIMAL AS RADIX AND ASSUME + 


000137 075564 JMP 
TRVOCT: ; (SAME AS TRVNUM SINCE DEFAULT RADIX IS _OCTAL) 
012737 000010 003156 TRVNUM: MOV + lamar DX sUSE OCTAL AS RADIX AND ASSUME + 


TRVNMA: 
C R1 sCLEAR DIGIT COUNTER 
000053 ine ye 3SEE IF THERE'S A + SIGN THERE 


; BR _IF_NO 
BR 11$ 3 ELSE oe ALREADY SAYS +, JUST BR 
000055 3 “ (R4) ,#'= 3SEE ic THERE'S A = SIGN THERE 


F NO 
177777 003157 M #~1 ,PSRADX+1 iSET “MINUS FLAG'* (HI BYTE OF PSRADX) 
075614 005204 : C R4 7BUMP R4 TO POINT TO FIRST CHAR 


075616 121427 000060 : (R4) ,4#60 3SEE IF CHAR. LESS THAN A ‘‘0"° 
3BR IF YES ( NUME 
000067 (R4) ,#67 +SEE ‘i — GREATER THAN A °7"° 


003156 000012 MPB PSRADX #10. See ie IN DECIMAL MODE 
R IF YES (CAN USE HIGHER LIMIT) 
000071 (R4) ,#71 3SEE DIGIT WAS A 8 OR 9 
F NON-NUMERIC 
#CLIBRX TELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 


052554 MOV #CLIBRX,-(SP) 
000001 MO #1,-(SP) 
MOV PR 


CSPNTF 
000004 A #4,SP 
177777 003161 #-1,P$GDBD sSET ERROR RETURN FLAG 
000475 5$ : PRINT ERROR AND TAKE MISS 


121427 000071 : (R4) #71 7SEE " CHAR. GREATER THAN A ‘9° 
2$ 7BR IF YES (NOT NUMERIC 
; UPDATE Sw LINE PTR TO NEXT CHAR. 
z INDICATE A NUMERIC FOUND 
075712 000741 B 7GO LOOK AT NEXT CHAR. 


075714 005701 : sage 1F fore 4 oa 
3GET POINTER TO START OF NUMERIC STRING 


UB 
003154 CL PSNUM CLEAR LOC. WHERE VALUE WILL BE STORED 
1 : :GET ASCII CHAR AND CONVERT IT TO A # 
075732 000060 
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003154 sSHIFT CURRENT VALUE TO MAKE ROOM 
7$ sERROR IF NUMBER TOO BI 
003154 003152 MO sSAVE FOR LATER IN CASE DECIMAL RADIX 
003154 PSNUM 
sERROR IF NUMBER TOO BIG 


003154 
7$ sERROR IF NUMBER TOO BIG 
003156 000012 MPB P$RADX #10. sSEE IF OF EeOnL RADIX 


BN BR IF NOT 
003152 003154 PSCNT ,PSNUM 
7$ sERROR IF NUMBER TOO BIG 
003154 : og Foam 


RI sERROR IF NUMBER TOO BIG 


BNE 3$ 
003157 —" a 4 ~% WAS PRECEDED BY A = SIGN 
003154 P$NUM 3 ELSE NEGATE THE NUMBER BEFORE LEAVING 
: ;REST ORE R5 


RS 
075344 PC, TRVACT ;SINCE NUMERIC FOUND, GO TAKE ACTION 
075374 TRVNOB [GO POINT R3 TO NEXT NODE 


: #CLINBG PRINT NUMBER TOO BIG ERROR 
052527 MOV #CLIN@G,-(SP) 
000001 MOV #1,-(SP) 
MOV SPR 
TRAP CSPNTF 
000004 ADD #4 ,SP 


SEQ 108 


-—O0—-O 
Pegs | 

Ve ay 
Ww 
ANNU NNON 


538 


sseseesie 
Saas 


= 
oS 
5 a 


95939 177777 003161 : #1 ,PSGDBD :SET ERROR RETURN FLAG 
076074 000137 075364 ; TRVBRC [TAKE 'MISS'’ BRANCH 


076100 005001 TRVALP: R1 :CLEAR ALPHA FOUND FLAG 
000101 ma. ¢ (R4) #101 :SEE IF CHAR. LESS THAN A “‘A 
:BR_IF YES (NOT ALPHA) . 
000132 (R4) #132 :SEE_IF CHAR. GREATER THAN A ‘7 
2$ :BR IF YES (NOT ALPHA) 
{UPDATE CMD LINE BTR TO NEXT CHAR 
ZINDICATE AN ALPHA WAS FOUND 
BR 360 LOOK AT NEXT CHAR. 
2s: Py ALPHA'S WERE FOUND 


3$ : 
075344 PC, TRVACT IF FOUND T ACTION 
075374 TRVNOB ‘THEN UPDATE RST 10 NEXT NODE -NO BRANCH 
076140 075364 3$: TRVBRC ;NONE FOUND, TAKE MISS BRANCH 


076144 005001 TRVALN: R1 :CLEAR ALPHANUM FOUND FLAG 
000060 108: ¢ (R4) ,#60 :SEE IF CHAR. LESS THAN A “0 
BL iBR_IF YES (WOT NUMERIC OR ALPHA) 
000072 (R4) #72 :SEE IF CHAR. GREATER THAN A'S 
1$ :BR IF YES (NOT NUMERIC 
R4 SUPDATE CMD LINE PTR TO NEXT CHAR. 
RI INDICATE A NUMERIC FOUND 
Be 10$ G0 LOOK AT NEXT CHAR. 
076170 000101 1$: (R4) #101 ;SEE IF CHAR. LESS THAN 4 ‘"A’* 
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SEQ 109 


076174 002406 2$ ;BR_IF YES (NOT ALPHA) ae 
| MPB (4) #132 iSEE IF CHAR. GREATER TKAN A "7 
2$ ;BR IF YES (NOT ALPHA) 
RG SOPDATE CAD LINE PTR TO NEXT CHAR 
RI INDICATE AN ALPHA FOUND 
108 ;G0 LOOK AT NEXT 


Ri iSEE IF ANY AE PHAMUM § WERE FOUND 
075344 PC, TRVACT Ati F ANY FOUND TAKE ACTION 


075374 TRVNOB 3 THEN plig R3 TO NEXT NODE -NO BRANCH 
076226 075364 3$: ZNONE FOUND, TAKE MISS BRANCH 


076232 TRVSTR: 3 SAVE _R5S 
0401 MO $"Rs sPOINT R1 TO CMD STRING 


0305 R 
705 000006 sPOUNT RS TO MATCH STRING FROM CLI NODE 
003152 C [CLEAR CHAR MATCH COUN 
: 3 SEE IF END OF MATCH STRING YET 
:SEE IF END OF CMD LINE YET 
[SEE IF CHARACTERS MATCH 
F NO 


003152 [MATCH =INCREMENT MATCH COUNT 
R1 [UPDATE STRING POINTERS 


076274 BR sBR TO CONTINUE CHECKING CHARS. 
076276 003152 : ; WHEN DONE SEE IF — a ty: FOUND 
15$ F AK MISS BRANCH 
010104 S :POINT CHD POINTER 10 END OF STRING & 
004737 075344 PC, TRVACT ;1F A_MATCH FOUND, GO DO MATCH ACTION 
066303 000004 4(R3) ,R3 : T E (NO H 
076320 000207 PC 3 (NO RETURN THRU TRYNOB SINCE DIFFERENT 
;_ DISPLACEMENT DUE TO MATCH STRING) 
076322 : R5 STORE R5 


076324 000137 075364 TRVBRC ; GO TAKE BRANCH 
3 (PARSED OK), -1 IF ILL CMD..... 


SnSososee= 
a 


TRVADR TRAVERSE COMMAND LINE INPUT ADDRESS 
THIS ROUTINE IS CALLED BY TWO DIFFERENT ACTION ROUTINES. THE 
IT PARSE Mga io op 


SEL ROUTINE 
E OPERATOR SELECTED MESSAGE. 
IF A NULL STRING IS ENTERED, AN ERROR MESSAGE IS PRINTED. 
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076454 


AGNOSTIC 


000000 
000040 
000042 
000057 
000132 


177777 


000000 


000000 
000000 
000101 
000124 


003161 


003672 
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COMMAND LINE TRAVERSE ROUTINES 


INPUTS = 
OUTPUTS - 


COMMAND LINE 
INPUT CONDITION ! PS$GDBD 


ILLEGAL CHAR. ! = =1 : 
ADR./ASSIST : 0 


ADR./TARGET ; 
ADR./ : 0 
ADR. 


' 

i) 

‘ 

t 

i 

a 

“OPR SEL" E eo 


CALLING PROCEDURE - 
REGISTER USAGE - 


ch 
(R4) #0 


20$ 
(R4) #40 
(R4) #42 
(R4) ,#57 
(R4) #132 
10$ 


R4 
R1 


1$ 
#-1,P$GDBD 
50$ 

R1 

10$ 
#CTARGT,CFLAG 
50$ 

R1 

10$ 
#0,(R4) 

R4 

(R4) ,#0 
(R4) ,#°A 


(R4) ,#°T 
25$ 


— 4 Be Se Se Se Se Se Se Se Se Be Se Se Se Be Ge Se Se Be Se Se Be Ge Se Se Se 


OUTPUTS 
! R4 POINTS TO 


ILL. CHAR. 
! END OF LINE 


' END OF LINE 


iy 
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R4 = 4 pit TO _ THE BEGINING OF De acct 


MESSAGE IN THE COMMAND 


SUMMARIZED IN TABLE BELOW 


CFLAG CONTAINS 


CASIST 
CTARGT 


' 
+ 
' 
‘ 
‘ 
' 
' 
‘ 
‘ 
! 
i 


CTARGT 


CHAR. AFTER ‘* | i = 


' CHAR. AFTER ** ! 
JSR_ PC,TRVADR 
R1 IS USED AS A COUNTER TO REPORT ERROR MESSAGES 


OPRSEL ; © 


L_STRINGS ARE ENTERED. 


IF NULL 
R4 POINTS TO THE NEXT CHAR. IN THE COMMAND LINE 


2 CLEAR HEX DIGIT FOUND FLAG 
IF NUL CHAR. 


7 SEE 

;_IF YES, RETURN 
7SEE IF ILLEGAL CHARACTER 
z1F YES: 8 BRANCH y + ERROR ROUTINE 
+IF YES “Brac TO 40$ 

SEE IF 


HAR. Is A i” i 
:BRANCH IF ves 
SEE IE CHAR. GREATER THAN “F** 
; IF YES, ILLEGAL 
ZUPDATE CMD LINE POINTER TO NEXT CHAR. 
SINCIDATE A VALID CHAR. FOUND 


OOK _A CHAR. 
ise! — FLAG 


:SEE IF VALID CHARACTERS FOUND 
F NO, ILLEGAL CHAR. 

ise TARGET FLAG 

:SEE IF VALID CHARACTERS FOUND 


NO, IL 
IF VES, REPLACE "7" WITH NULL CHAR. 
UPDATE CMD. LINE POINTER TO NEXT CHAR. 
1S NEXT CHAR. MUL 
: IF YES, TAKE DEFAULT OF TARGET 
31S NEXT CHAR. “’A™ 
: IF YES, BR 35$,_ 
31S NEXT CHAR. ‘‘T 
; IF YES, SET TARGET FLAG 


SEQ 110 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
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CZUACA.P11 
076456 
076464 


076556 


076560 
076560 


076560 
076564 
076564 
076566 


112737 
005304 


004737 


000167 
000090 


177777 
000057 
000001 


000000 
000006 


053362 
000001 


000004 
177777 


101710 


003161 


003672 


003672 


003163 
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MACY11 30A(1052) 20-JUL-83 13:27 PAGE 112 
COMMAND LINE TRAVERSE ROUTINES 


#-1,PSGDBD ; sues SET ERROR FLAG, 
4 ; READJUST COMMAND LINE POINTER 
#°/,(R4) ; AND REPLACE / IN CMD tas TO FIX ERROR 
; SET TARGET FLAG AND RETU 
— ;SET ASSIST FLAG 


sSEE IF ANY CHARACTERS TYPED 
IF NO, BRANCH TO 45$ 

#0,(R4) ELSE, REPLACE ''* WITH NULL 

 erteciatiats 2SET OPERATOR SELECTED FLAG 


50$ RETURN 
#NULSTR sPRINT NULL STRING —— 


#NULSTR,=-(SP) 
1,-(SP) 


ADD 
#~1,PSMERR sey OPER. SELECTED MSG. ERROR FLAG 
R4 _— LINE POINTER TO NEXT CHAR. 


SBTTL REPORT CODING SECTION 


gtt 
; THE REPORT CODING SECTION CONTAINS THE 
3 “‘PRINTS’’ CALLS THAT GENERATE STATISTICAL REPORTS. 


°. 
e 
- 


BGNRPT 
LSRPT:: 


ET titite cnite it Bind taht fa tc ane 
STATISTICAL INFORMATION GATHERED BY HA DIAGNOSTIC. IT IS 
OR COMMAND ‘PRINT’* OR BY THE MACRO CALL 
**, USE THE PRINTS MACRO TO PRINT THE INFORMATI 
USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. iT IS 
Age ga oF re ttatiers 2 DEVISE AND IMPLEMENT THE 
 LUUNURRRRNAUSYSESTUEERELEXEESYELARESL EERE 2222 222222222222 EEEEEEE REE ER EEE e222 2222 
JSR PC ,ACTSUM 
EXIT RPT 


-WORD JSJMP 
-WORD 110006-2-. 


eee eee TTT TTT eT eT TTT TTT TTT Teepe eee Teeth ehhh 8th) 
INSERT LOCAL STORAGE THAT IS USED ONLY 


; DURING THE REPORT SECTION. 
eee eee eee eee eee eee AAA AA ATTA ATA 


ess T TTT TTT TTT e eee eee L797 7999599559 5999595 53 


SEQ 111 





; F 


CZUACAO DEUNA NI EXERCISER = MACY11 30A(1052) 20-JUL-83 13:27 PAGE 113 
CZUACA.P11 19=JUL=83 17:1 REPORT CODING SECTION 


: INSERT MESSAGES THAT ARE USED ONLY 
: DURING THE REPORT SECTION. 
g UUAATAATAAAALAAATTAAA ALATA TTA AVAIL TAA ATTA ALATA AAT AAA AAA A A222 2222 
-EVEN 
076570 ENDRPT 


SEQ 112 


L10006: 


076570 
076570 104425 TRAP CSRPT 





CZUACAO DEUNA NI EKeRe IES DIAGNOSTIC 


CZUACA.P11 


076572 
076572 


076572 
076574 
076576 


076600 


19=JUL-83 1 


177777 
177777 
177777 


7:13 
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MACY11 Ton Taace 20-JUL-83 13:27 PAGE 114 
PROTECTION TAB 


-SBTTL PROTECTION TABLE 


hed 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
3 TO PROTECT THE LOAD MEDIA. 


BGNPROT 
LSPROT:: 


ET INTO P-TABLE FOR CSR ADDRESS 
ET INTO P=TABLE FOR MASSBUS ADDRESS 
ET INTO P-TABLE FOR DRIVE NUMBER 


sOFFS 
SOFFS 
ENDPROT 
ee E atut tor tit ait i taste ae ee 
INSERT BY ye FSET A NOTED IN COMMENT 


E. (OF 
NUMBER OF OBvIES FROM, = BEGINNING OF A PTABLE. 
QUESTION.) IF THE PARTICULAR 

ITEM NOT A NTRY AS -1. WHEN THE RUNTIME 

pid SS eecures A’GPHARD, IT USES THESE OFFSETS (IF NOT 

SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

IN THE XXDPs MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
— DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 


THE GPHARD. 
; RULLAAAVVAALLALLTLLALLLALALLLLLALALLLALLLLLLTLLLALLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLS 


Py} 
. 
e 
. 
e 
e 
. 
e 
o 
oe 
o 
oO 
7 
. 
Py 
- 





CZUACAO DEUNA NI ree iy | DIAGNOSTIC 
CZUACA.P11 


076600 
076600 


076664 


19=JUL=83 1 


022737 


012700 
104447 


103424 


012700 
104447 


103002 
000137 
012700 
104447 


103002 
000137 


012700 
104447 


15 


000020 003672 


003672 
100130 


000040 


000037 


100046 
000036 


100046 
000035 


kK 9 


SEQ 114 
MACY11 30A(1052) 20-JUL-83 13:27 PAGE 115 
INITIALIZE SECTION 
-SBTTL INITIALIZE SECTION 
3 oe 
: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 
BGNINIT 
LSINIT:: 
TET tant tr italts aah tid tenitiG ba 
’ UPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
; DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
3 PLACE. THE EVENT FLAGS ARE READ USING THE ‘READEF‘ CRO. 
3 THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
; CORRRESPONDING EVENT FLAGS ARE: 
Z START COMMAND EF .START 
: RESTART COMMAND EF RESTART 
; CONTINUE COMMAND EF .CONTINUE 
3 POWERDOWN/POWERUP F.PWR 
: NEW PASS EF .NEW 
; EXAMPLE OF EVENT FLAG USE: 
3 READEF #EF.START 
: BCOMPLETE STARTC 
; DURING THE INIT CODE, USE oO E ARD" MACRO TO OBTAIN P-TABLE 
‘ INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
3 THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMATION ON ALL 
; ght Me ay wry My gg a Is Thom ey Ti THE NUMBER 
POET TT TT TETTTTTTTTET PETTITT LITTLE eee eee 
INIT: CMP #CEXIT,CFLAG sSEE If EXIT COMMAND TYPED 
BNE INIT1 : IF NO, DO INIT C 
CFLAG : ELSE, ir EXIT FLAG 
JMP INICLN 3; AN 
INIT1: READEF W#EF.START sIF HERE BECAUSE OF ‘’START’’. DO INIT 
MOV #EF .START,RO 
TRAP CSREFG 
BCOMPLETE START ars ate 
READEF #EF.RESTART IF HERE BECAUSE OF ‘‘RESTART'’, DO SCE INIT 
MOV #EF .RESTART,RO 
TRAP CSREF G 
BNCOMPLE TE 5$ 
BCC 5$ 
JMP___- RESTRT : 
5$: READEF #EF.CONTINUE IF HERE BECAUSE OF ‘’CONTINUE'’, EXIT 
MOV #EF CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 10$ 
BCC 10$ 
JMP RESTRT 
10$: READEF #EF NEW sIF HERE ON NEW PASS, SKIP SOME INIT 
MOV WEF. RO 


TRAP CSREFG 


CZUACAO DEUNA NI EXERCIS 
CZUACA.P11 19=JUL=8 


103002 
000137 
000137 


104431 


2737 
012702 
012700 


000137 
012700 


077132 


AGNOSTIC 


003674 
000114 


067656 


000100 


000120 


067656 


000111 


062622 
000001 


000004 
100130 
000000 


100130 


047656 
047656 


000003 
000010 


047662 
047662 


003704 


003674 


003704 
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MACY11 30A(1052) 
INITIALIZE SECTION 


BNCOMPLETE 
> vatex 


ISSTACK 11000, SP 
MEMORY FRES 


15$ 


MOV 
ADD 
MOV 
CLOCK 


dogg HE FREMEM 
#2, FREMEM 


#CLKCSR,R2 
L,R1 


BNCOMPLE TE 1$ 


PC,CLKSET 
aLCLKEN, -CLKEN 


P,R1 


BNCOMPLETE 2$ 
PC,CLKSET 
#2,CLKCSR 
#PCLKCT -@CLKCSR 
ates oCLKEN 


BR 3 
PRINTF #NOCLK 


JMP INICLN 
GPHARD 40,R1 
BCOMPLETE 4$ 
INICLN 
(R1)+,UNACSR 
(R1)+, UNAVEC 
MOV (R1)+,UNAPRI 
SETVEC UNAVEC,#UNAISR,UNAPRI 


MOV 
sTHIS ONE IS NOT _. 


SAVE P 


SEQ 115 
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BCC 15$ 


31F DON'T KNOW WHY WE'RE HERE, EXIT 
SET PARAMETER STACK POINTER 
GET FREE MEMORY INFO 

TRAP CSMEM 


MOV RO,FRESIZ 
sSIZE_OF FREE MEMORY IN ‘us 
ZSTART OF FREE MEMORY IN FREME 
7SETUP R2 AS A PRT. e" CLOCK INFO. BLOCK 


3GET LINE CLOCK INFO 


MOV 
TRAP 


MOV RO 
IF NONE, SEE IF P CLOCK PRESENT 


SET UP CLOCK INFO TABLE AND VECTOR 
zSET UP THE ENABLE LINE CLOCK DATA 


GET P CLOCK INFO 


V #°P,RO 
TRAP C$CLCK 
MOV RO,R1 


:I1F NO CLOCK, ERROR are 28 
; ELSE SET UP CLOCK INFO oUNT VECTOR 


T SET REG. 
VALUE 


BOIN NT CLKESR BACK TO P=-CLK sk 
SETUP TO ENABLE P-CLK DATA 


ERROR MESSAGE 


#NOCLK ,~(SP) 
#1,-(SP) 


SP,RO 
er 


zCANNOT CONTINUE, DO CLEANUP 
GET P-TAB POINTER FOR ae UNIT 


#0,R0 
CS$GPHRD 
RO,R1 


4$ 


re CSR 
pea h 


RIORITY 
7SETUP UNA INTERRUPT VECTOR 
MOV UNAPRI ,~(SP) 
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013737 047652 047632 UNACSR,PCSRO sPCSRO 
PCSRO,PCSR1 econt 


#2,PCSR1 

PCSR1,PCSR2 

#2, sPCSR2 
2 


#2, sPCSR3 
#TBLLEN,R3 CLEAR NODE TABLE 
#NODTBL ,R2 

(R2)+ 


SEQ 116 


047640 


5$ 
000132 #STBLEN,R3 CLEAR SUMMARY TABLE 
002656 {+ Set 


$ 
050500 3 CLEAR SUMMARY DATA COUNTERS 


CLEAR TIME SINCE-START=LOCATIONS 


0 C TIMSEC 
013737 003702 003712 MOV CLKHZ, TIMTCK zLOAD TICKS/SEC 
SETVEC CLKVEC,#CLKINT,CLKBR SETUP CLOCK INTERRUPT VECTOR 
013746 003676 wad CLKBR ,-(SP) 


MOV 
000003 MOV 

TRAP 
000010 


ADD #10,SP 

013777 003704 104326 MOV CLKEN,@CLKCSR ;SET ENABLE BITS IN THE CLOCK TO START 
SETPRI #PRIOO ;SET PRIORITY=0 SO CLOCK CAN INTERRUPT 

012700 000000 MOV #PRIOO, 


RI 
104441 TRAP CSSPRI 
UNAINI INITIALIZE THE UNA 
FUNCT #RDDEFA READ UNA DEFAULT PHYSICAL ADDRESS 
R2 ;CHECK FOR ERROR 


100034 20$ 
BINHEX #PCBB2, a6. A#STRBUF PUT ADDRESS INTO HEX FORMAT 
#HDMSG1 , #STRBUF PRINT ADDRESS 
002322 #STRBUF ,-(SP) 
055342 #HDMSG1 ,-(SP) 
000002 #2,~(SP) 

MOV P,RO 


CSPNTS 
000006 ADD #6,SP 
FUNCT #RDSTA ;READ STATUS TO GET ROM VERSION 
001162 Re CHECK FOR ERROR 


20$ 
113702 047670 PCBB2 ,R2 zONLY WANT LOWEST 6 BITS 
142702 000300 BICB #300,R2 
077500 PRINTS #HDMSG2,R2 :PRINT ROM VERSION 
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077500 010246 


SEQ 117 


R2,-(SP) 
055413 #HDMSG2,-(SP) 
000002 #2,-(SP) 
Vv SP,RO 
C$PNTS 
062706 000006 ADD #6,SP 
PRINTS #HDMSG3 ZPRINT MORE HEADER INFO 
012746 055466 MOV #HDMSG3,-(SP) 
000001 MOV #1,-(SP) 


MOV SP,R 
TRAP  C$PNTS 
ADD = #4,SP 
#UCB20,R3 ;SET UP FUNCTION CONTROL BLOCK 
#2, (R35+ : MOVE 2 BYTES... 
#TENP  (R3)+ : INTO LOCATION TEMP... 
+ 
12713 021040 #21040, (R3) FROM LOCATION 21040 


FUNCT #DMPMEM 7DUMP INTERNAL MEMORY 
R2 ZCHECK FOR ERROR 


20$ 
050550 TEMP,R3 sPUT RESULT INTO R3 
002000 #BITIO,R3 DETERMINE STATUS 


004000 #B1T11,R3 


001425 BEQ 
PRINTS #HDMSG4 ; BIT10!B1T11 = REMOTE AND POWER UP BOOT ENABLED 
012746 055522 MOV #HDMSG4 ,-(SP) 
000001 MOV #1,-(SP) 
SP°RO 
TRAP CSPNTS 
000004 ADD #4,SP 
BR 15$ 
004000 : BIT 1 alc 


001422 BEQ 
PRINTS #HDMSGS a = REMOTE BOOT ENABLED WITH ROM 
012746 055577 MOV #HDMSGS,-(SP) 
000001 MOV #1.=(SP) 


MOV SPR 
TRAP CSPNTS 
000004 ADD #4,SP 


000421 BR 15$ 
: PRINTS #HDMSG6 : = REMOTE BOOT ENABLED 
012746 055650 MOV #HDMSG6,-<SP) 
000001 MOV #1,-(SP5 
MOV *R 
TRAP  C$PNTS 
000004 ADD #4,SP 
000410 BR 15$ 
: PRINTS #HDMSG7 ; REMOTE BOOT NOT ENABLED 
012746 055710 MOV #HDMSG7,-(SP) 
000001 MOV #1,-(SP) 
MOV SP.RO 
TRAP C$PNTS 
000004 : ADD #4,SP 


010000 
077744 (001411 


001114 





CZUACAO DEUNA NI EKER LSE DIAGNOSTIC 


CZUACA.P11 
6101 077746 
6102 077746 
6103 077752 
6104 077756 
6105 077760 
6106 077762 
6107 077766 
6108 077770 
6109 077770 
6110 077774 
6111 100000 
6112 100002 
6113 100004 
6114 100010 
6115 100016 
6116 100024 
6117 100032 
6118 100034 
6119 100034 
6120 100036 
6121 100040 
6122 100042 

123 100044 
6124 1 6 
6125 0052 
6126 100056 
6127 100064 
6128 100064 
6129 100070 
6130 100074 
6131 100100 
6132 100104 
6133 100106 
6134 100112 
6135 100120 
6136 100120 
6137 100124 
6138 100126 
6139 100130 
6140 100130 
6141 100132 
6142 100132 
6143 100134 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
$154 


19=JUL-83 1 


013737 
013746 


013777 
012700 
104441 
000401 
104444 


104432 
000002 


213 


055751 
000001 


000004 


056014 
000001 


000004 
000000 
001000 
000001 


003706 
003710 
003702 


003676 


000010 
003704 


000000 


002370 
002372 
002374 


003712 


103554 


MACY11 30A(1052) 


B 10 
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INITIALIZE SECTION 


PRINTS 
BR 
16$: PRINTS 
17$: MOV 
MOV 
MOV 
BR 
20$: ERRDF 
BR 
RESTRT: CLR 
CLR 
OV 
SETVEC 
NEW: MOV 
SETPRI 


BR 
INICLN: DOCLN 
INIEXI: EXIT 


#HDMSG8 


17$ 
#HDMSG9 


#ALPHA,PSTYPE 
#512. ,P$SIZE 
#1,PS$CPYS 


RESTRT 
18,EMSG18,ERR1 


INICLN 
TIMMIN 


TIMSEC 

CLKHZ, TIMTCK 

CLKVEC ,#CLKINT,CLKBR 
CLKEN, @CLKCSR 

#PRIO0 

INIEXI 


INIT 


3; BITI2 = 


SELF TEST ENABLED 
MOV #HDMSG8, -(SP) 
MOV #1,-(SP) 
SP.RO 


CSPNTS 
ADD #4,SP 


; SELF TEST DISABLED 


MOV #HDMSG9, - (SP) 
MOV #1,-(SP) 


MOV SP,RO 

TRAP CSPNTS 
#4,SP 

SET MESSAGE DEFAULT VALUES 

TRAP CSERDF 

«WORD 1 

-WORD EMSG18 

-WORD = ERR1 


CLEAR TIME SINCE-START-LOCATIONS 


sLOAD TICKS/SEC 
SETUP CLOCK INTERRUPT VECTOR 


MOV CLKBR,-(SP) 
MOV #CLKINT,~(SP) 
MOV CLKVEC ,~(SP) 
MOV #3,-(SP) 

ing CSSVEC 


DD #10,SP 
;SET ENABLE BITS IN THE CLOCK TO START 
;SET PRIORITY=0 SO a seat yt 


00,R0 

TRAP CS$SPRI 
sEXIT 
z;ABORT PASS 

TRAP CSDCLN 
zEXIT INIT SECTION 

TRAP CSEXIT 

«WORD 110010-. 


MUINSERT LOCAL SOMAGE THAT IS SED MY 


IALIZE SECT 


| UUREXEXELNERER E2547 42 0LCERREERESYEEEEEEELECERER 22222 222 CELELERELE LAE LEEEERELE 


ING T 


IALIZE SECT 


MUMINSERT MESSAGES THAT ARE USED OMY 


DUR 
RTT ttitittttiittitiittteeeet Tee 


SEQ 118 


C 10 
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SEQ 119 


6157 100136 ENDINIT 
106136 L10010: 
100136 104411 TRAP CSINIT 





CZUACAO DEUNA 
CZUACA.P11 


S 


149 
100120 
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A seaneals MACY11 30A(1052) 20-JUL-83 13:27 PAGE 121 
213 AUTODROP SECTION 


-SBTTL AUTODROP SECTION 
++ 


; THIS CODE ‘ EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
3 THE “'ADR™ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 


SEQ 120 


; SEE IF THEY WILL_RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
; DROPPED FROM TESTING. 


BGNAUTO 
LSAUTO: : 


MED CE HERE To caeek OENieG Wo eee IF tet eee 
; R THOSE THAT 


ISSU ‘ a ON'T 
S UUUUERLERA EER UULS TEETER ALERELE RELA SLES A ESLR USER LRU LES L ELLE LEE ELLE LEER LEAL 
ENDAUTO 
L10011: 


104461 TRAP CS$AUTO 


E 10 
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CZUACA.P11 19=JUL=83 17:1 CLEANUP CODING SECTION 


~-SBTTL CLEANUP CODING SECTION 


ON CONTAINS THE CODING THAT IS PERFORMED 


s+t 
; THE CLEANUP CODING SECTI 
STS HAVE BEEN PERFORMED. 


; AFTER THE HARDWARE T 
BGNCLN 
LSCLEAN: : 
Seen Tat tat tata init tot eee 


RESTORE YOUR TEST=DEVICE TO A_NEUTRAL STATE. 
Lt ae so is ay AFTER EACH PASS AND AFTER THE 


AM _IS_ INTERRUPTED B 
PTTITTTiTttriititeeeee er eeeeeeeeereeteeeeteerett eee tt tt tty 
012737 000000 050044 MOV pa SWOMC+ bs CLEAR MULTICAST ADDRESS ad 
CALL FUNCT —_#WDMULA 3 WRITE 0 INTO LIST LENGTH 
012737 000400 050044 MOV #400, SWDMC +4 3 RESET FOR 1 ENTRY 
001606 P$POP R2 woe FOR ERROR 


BEQ 25$ ; OK CONTINUE 
ERRHRD 38,EMSG25 3 ELSE, REPORT ERROR 


TRAP CSERHRD 
-WORD 38 
ws pas 


050516 : = ;SEE IF RECEVE COUNT ZERO 


001413 : IF YES, EX! 
a ; ELSE, CLEAR OUT UNWANTED ENTRIES 


001770 Q 25$ 3 IF ANY WERE FOUND, UPDATE NEXT POINTER 
GETRNX #RRGNXT 

000762 BR 25$ SEE IF ANY MORE ENTRIES 

005077 103430 : CLR aCLKCSR ;DISABLE CLOCK 
SETPRI #PRI07 SET PROCESSOR PRIORITY — TO 7 

012700 000340 #PR107,R0 

104441 TRAP CSSPRI 
EXIT CLN 

104432 TRAP CSEXIT 

100254 000002 WORD L10012-. 


Peete TTT TTT TTT TTT Tee Teese Teer 777799 999995955559599593 
: INSERT LOCAL STORAGE THAT IS USED ONLY 


: DURING THE CLEANUP SECTION. 
4999 999599995595 555s ett ttt tt tse ese reer epee e reeset 7 55555599557 F! 


Toto trod 
: NSERT v3 any 5 ey! ~ Dad 


DURI NG T SECT 
‘ yunaygenTNEULAUCEEURN EERE EEREE VEEL LEELELELELERELELERELELELE2 IIIA 
-EVEN 


100256 ENDCLN 
100256 L10012: 


SEQ 121 
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6236 100256 104412 TRAP CSCLEAN 


SEQ 122 





G 10 


SEQ 123 
CZUACAO DEUNA NI EXERC ISe® DIAGNOSTIC MACY11 iP section 20-JUL-83 13:27 PAGE 124 
CZUACA.P11 19=JUL-83 17:13 DROP UNIT SECTI 
6237 -SBTTL DROP UNIT SECTION 
6238 
6239 p++ 
6240 : THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
6241 3; TO NO LONGER BE TESTED. 
6242 :-- 
62435 
6244 1O0ee BGNDU 
oct? 100260 L$DU:: 
at 4 REET ETA TERT DROP CODE HERE, IMLS CODE WILE OE EXECUIED AFTER 
6249 : A ''DROP’’ COMMAND OR A "DODU'' MACRO EX ON. THE PURPOSE 
6250 5 OF THIS CODE IS TO DO a Rg x7 ast laoan AFTER A 
6251 ; UNIT HAS BEEN DROPPED. S OPT 
$638 S UUTEUTeAELREERUSETELE ER TLESLLELEESLILER ECA SER ESR ELE REL ELL ELLE LELE ELE LEE TLET 
6254 100260 EXIT DU 
6255 100260 000167 -WORD JSJMP 
e638 100262 000000 -WORD L10013-2-. 
6258 TTT TTS TTT TFT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TT TTT TTT Te TTT eee 9 
6259 3 INSERT LOCAL STORAGE THAT IS USED ONLY 
6260 , ; DURING THE DROP-UNIT SECTION. 
eee? AAA ATTA AAT AAA A TATA TAAL AAA A AAA AAAAAAAAAAAIAA7222% 
6263 meas gg a 7 enemas 
ett : rap intl yd greed tH aay ve USED ON 
ocoe S euUUREERERSULELRE ER ELE LEURELE ELA LEREL ELLE LEE LEE LLL ELLE ELLE LL LEZ ELL ELLE 
6268 EVEN 
6269 
6270 1o0ees ENDDU 
6271 100264 L10013: 


6272 100264 104453 TRAP C$DU 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 his 20-JUL-83 13:27 PAGE 125 
CZUACA.P11 19=JUL=83 17:13 ADD UNIT SECTI 


6273 ~SBTTL ADD UNIT SECTION 


SEQ 124 


p++ 

6276 3 THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
6277 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
6579 ; TO THE TEST CYCLE. 


6281 100266 BGNAU 
6282 100266 LSAU:: 


6284 pHNINIIFINSERT ADD CODE WERE. THIS CODE VILL GF EXECUTED AFTER) 


6286 ; AN “'ADD"* COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
oe : Jon ti fg ba Hy orig BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 


: HIS SECTION IS OPTIONAL. 
oe SyuxxxunEa aa U3 VUEUE42 43 LECLLE ST TELERERERE EI EEEEEERE IAL LEELER EA EEELELERESIELELEEEE 
6291 100266 EXIT AU 
100266 000167 -WORD JSJMP 
os? 100270 000000 -WORD 110014-2-. 
6295 Teese TTT TTT TTT TTT T TTT T TTT TTT eee 7575 955555555555555555555555955 5! 
: INSERT LOCAL STORAGE THAT IS USED ONLY 
: DURING THE ADD-UNIT SECTION. 
ited seer eee eee eee eee eee eee AAA TALIA AAA AAA AAAAAAIAAIAAIIII2 


300 eee eee eee eee eee eee T TA AA LATA AAA AAAAAIAAAAAAIAAIIA2 
6301 : INSERT MESSAGES THAT ARE USED ONLY 


; DURING THE ADD-UNIT SECTION. 
on? sMAATAAAARALALALALALALALATATALALALATALATAL AVAL ALAA ALAA ALAA ALAA ALAA ALIAAAAAAAIAI7z 
6305 -EVEN 
6306 
6307 100272 ENDAU 
6308 100272 L10014: 
6309 100272 104452 TRAP CSAU 
6312 -SBTTL TEST 1: 
6314 sRLAAALALAAAAALAATATAAAAA ALAA AA AA ALAA AA AAA A AAA AAA AAA AA AAA AAA AAA AA AAAAAAAAzz 
6315 g APPEND THE NAME OF THIS TEST TO THE .SBTTL. AS SHOWN IN THE 
3 FOLLOWING EXAMPLE. -SBTTL TEST 1: NAME OF TEST 
6317 URAL A TAA AAA ATT IAAL ALAA A AAA AA AAA ALAA A AAA AAA AL ALATA I72z 
ptt 
6321 ; TEST TO ... 
6322 i-- 


6308 MUNGANGE THE PIRASE IESE TO.-e 2 TOE A FUNCTIOWAL 


ARE TEST 
6327 «aun yeREA TEA REER AUER ULEEUERE TEES EXERT ELE LLAULARESLAES LUE LUR ELL LELLE EEL EELEELE 


me ne 


CZUACAO DEUNA NI ree SS gummensines 
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6329 
6330 
6331 
6332 
6333 100274 
6334 100274 
6335 
6336 
6337 
6338 
6339 
6340 
6341 100274 105037 003161 
6342 100300 1050357 003100 
6343 100304 
6344 100304 104443 
6345 100306 000406 
6346 100310 002200 
6347 100312 000142 
6348 100314 052436 
6349 100316 000000 
6350 100320 000001 
6351 100322 000110 
6352 100324 
6353 100324 012737 002200 003144 
6354 100332 012737 051070 003146 
6355 100340 012737 100456 003150 
6356 100346 005037 003672 
6357 100352 004737 075216 
6358 100356 105737 003161 
6359 100362 001412 
6360 100364 
6361 100364 012746 052445 
6362 100370 012746 000001 
6363 1003574 010600 
6364 100376 104417 
6365 100400 062706 000004 
6366 100404 000137 100274 
6367 100410 105737 003160 
6368 100414 001412 
6369 100416 
6370 100416 012746 052476 
6371 100422 012746 000001 
6372 100426 010600 
6373 100430 104417 
6374 100432 062706 000004 
6375 100436 000137 100274 
6376 100442 022737 000020 003672 
6377 100450 001311 
6378 100452 
6379 100452 104432 
6380 100454 012272 
6381 
6382 
6383 
6384 
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SEQ 125 


ie 20-JUL-83 13:27 PAGE 126 


g MRRRAAALA AAA AAA AAA AAA AAT AAA AAA AAPA AAA AAA A AAA 2 22222 
: SERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 
Jee eA AAA AAA AAA AAT AAA TATA AAA AAA AAA AAAS TAAL T2222 


BGNTST 


Tiss 


pe ie tid ta fat eee eee 
s URES AAA AEENELELEEESERRRRRIRIENEEEEEEEEEEEEESLESUSEI IIIA IIATTALL EAE L ALAA LEELA EE 


“SBTTL GETCL 


GETCL: 


1$: 


10$: 


COMMAND LINE FETCH & INTERPRETATION SECT 


ae PSGDBD CLEAR CMD LINE PARSING ERROR FLAG 

GMANID CLISPM,CMDBUF .A,0,1,72.,NO GET CMD LINE FROM OPERATOR 
TRAP C$GMAN 
BR 10000$ 
-WORD CMDBUF 
-WORD TSCODE 
WORD CLISPM 
-WORD 0 


MOV #CMDBUF , PSBUFA 

MOV ACLITRE ,PSTREE 

MOV #CLIACT,PSACT 
CFLAG 

JSR PC,.PSTRV 
P$GDBD 


8 1$ 
PRINTF #CLIERM 


JMP GETCL 
TSTB PSNNUF 


BEQ 10$ 
PRINTF #CLINUF 


GETCL 

CMP MCEXIT,CFLAG 
GETCL 

EXIT TST 


CLI ACTION TABLE AND ROUTINES 


«WORD TSLOLIM 
WORD TSHILIM 
10000$: 


ZCLEAR QUALIFIER FLAG 
:GO PARSE C E 
'SEE IF PARSED OK, OR AN ERROR 
z1F NOT PRINT ERROR MESSAGE 
MOV #CLIERM, -(SP) 
MOV #1,-(SP) 
MOV SP.RO 
TRAP  CSPNTF 
ADD #4,SP 
:SEE IF INCOMPLETE COMMAND TYPED 
z1F NOT PRINT ERROR MESSAGE 
MOV #CLINUF (SP) 
MOV “i = (SP) 


MOV RO 
TRAP CSPNTF 
ADD #4,SP 
zWAS EXIT COMMAND TYPED? 
: IF NOT GET NEW COMMAND LINE 
: ELSE EXIT 
TRAP CSEXIT 
-WORD 110015-. 


USER MUST CLEAR/SET PS$GDBD IF USE ‘‘CLIBIF*’ IN CONNECTION WITH ACTION 
R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE 


J 10 


CZUACAO DEUNA NI EKER {See DIAGNOSTIC MACY11_ 30A(1052) ee lie Pa 27 PAGE 127 
CZUACA.P11 19=JUL=83 17:13 CLI ACTION TABLE AND ROUTINE 


CLIACT: 
006302 ASL :MULTIPLY ACTION CODE BY 2 
100474 SOFFSET VALUE 
06270 100474 ADD BASE VALUE 
000207 SRETURN TO TRVACT 
BRIEF DESCRIPTION OF ACTION TAKEN 


3 1-HELP 
32-NODE 


;3-BUILD 
74-RUN SPECIFIED TEST 
75-SET “MESSAGE PATTERN’ TEST FLAG 


SEQ 126 


000122 


H INFO 
: 1S EXTRACT NI NODE ADDRESS FROM INPUT LINE 

3 14~SAVE | aig TO tae wad OF ADDRESS STRING 
;15-SET *NODE’ FLAG FOR SHOW COMMAND 


324-SET ‘OPER SEL* FLAG 
s25-DETERMINE MESSAGE TYPE 
326-DETERMINE MESSAGE SIZ 
;27-DETERMINE 


6409 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 

4 


soq~che SUMMARY TABLE 

43-SET "LOOP DIRECT* FLAG FOR RUN COMMAND 
744-LOOK FOP PASS SOUNT DEFAULT 
010454 ACTUSF -10$ 45-UNSAVE NODE TABLE FROM ry FILE 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
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100610 


100616 


19=JUL=83 


112737 


000207 


012702 
012246 


001366 
000207 


105037 
004737 
105737 
001134 


001411 
012746 


000510 


001021 


17:13 


177777 003160 


003164 


000001 


000004 
003260 


003160 
076330 
003161 


053232 
000001 


000004 
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MACY11_ 30A(1052) 20-JUL-83 Pot 27 PAGE 128 
CLI ACTION TABLE AND ROUTINES 


SEQ 127 


SACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
+ INFORMATION HAS BEEN ENTERED 


ACTNUF: MOVB #~1,PSNNUF SET FLAG TO SAY NEED MORE OF COMMAND 


SACTION ROUTINE TO DO NOTHING 


ACTNUL: RTS PC RETURN TO PARSER 


ZACTION ROUTINE TO PRINT OUT HELP FILE 


ACTHLP: P$PUSH R2 sSAVE R2 
V #HLPTAB,R2 sMOVE POINTER TO BEGINING OF HELP FILE 
10$: PRINTF (R2)+ zPRINT LINE AND INCREMENT POINTER 
MOV (R2)+,=(SP) 


MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 


ADD #4,SP 
CMP R2,AHLPEND SEE IF ENTIRE FILE PRINTED 
BNE 10$ :1F NOT, PRINT MORE 
+A | sELSE, RESTORE R2 AND RETURN 


ACTION ROUTINE TO READ IN NODE PHY. ADDRESS, STORE IT IN ADRBUF 
zAND ENTER IT INTO THE NODE TABLE 


ACTNOD: CLRB — PSNNUF :CLEAR NOTNUF FLAG 
JSR PC, TRVADR S TRAVERSE ADDRESS, CHECK IF TARGET OR ASSIST 
TSTB = P$GDBD SCHECK IF RESULTS OK 
BNE 50$ [IF NOT, RETURN WITH -1 IN PSGDBD 
10$: CALL EDPACK CBOADR,#ADRBUF 46° :GET ADDRESS INTO BUFFER 
P$POP RI ; CHECK RESULTS FOR NUMBER OF CHAR.S 
BEQ ‘Ss F OK, BRANCH TO 15$ 
PRINTF M#CADRER TELSE PRINT ERROR MESSAGE 
MOV #CADRER,=(SP) 
MOV #1,-(SP) 
MOV SP.RO 
TRAP  CSPNTF 
ADD #4,SP 
BR 50$ yAND RETURN 
15$: CALL CMPADR #ADRBUF ,#ILLADR 7SEE IF ILLEGAL ADDRESS 


BNE 17$ cIF YES, PRINT ERROR MESSAGE 
PRINTF #ILADMS 
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012746 #ILADMS ,-(SP) 
#1,-(SP) 
SP,RO 
CSPNTF 
062706 #4,SP 
PRINTF #ILADM1 
012746 #ILADM1,=-(SP) 
000001 #1,=(SP) 
MOV P, 


CSPNTE 
000004 . #4,SP 


50$ 
BINHEX #ADRBUF ,#6,4STRBUF sCONVERT BINARY ADDRESS 
zINTO ASCII STRING 
000001 003672 #CASIST,CFLAG ;SEE IF TARGET OR ASSIST 


062613 002312 #ARGTY7 ,KEYWD2 sMOVE ‘TARGET’ INTO KEYWD2 
000000 002400 lena sMOVE TARGET INTO NODE TYPE 


062603 002312 : #ARGTY6, KEYWD2 sMOVE ‘ASSIST’ INTO KEYWD2 

012737 000001 002400 Vv #CASIST,NODTY 
: ENTRND sCALL ROUTINE TO ENTER NODE ON TABLE 
R1 ;CHECK RESULTS 
001017 50$ IF NODE TABLE FULL, RETURN 
012737 062510 002310 MOV #CMDTY7 ,KEYWD1 ELSE, MOVE "NODE’’ INTO KEYWD1 
PRINTS #MSG2,KEYWD2,#STRBUF ZINDICATE IF TARGET OR ASSIST 

012746 002322 MOV #STRBUF ,-(SP) 


SEQ 128 


sss 
ANN 


SSeee seesssesss Ns 
SoONeonm OONMNoorTy moOn 


KERRVEKSO 


OoOOloflo 


900010 D #10,SP 
000207 50$: RTS PC 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


felelelelelelelololololeolololelelola lo lo Bw lololololojo lolol a) 
SOI Boao ood oe I oo 


a ts ts 1s ss I’ I 


SSvyves 


SACTION ROUTINE TO BUILD NODE TABLE USING THE PERIODIC ADDRESS 
+ IDENTIFICATION MESSAGES SENT OUT BY NODE ON THE NI 


ACTBLD: PRINTS #MSG1 3 PRINT "BUILD* COMMAND MESSAGE 
054711 MOV #MSG1 ,-(SP) 
000001 #1,-(SP) 
SPR 
CSPNTS 
000004 #4 ,SP 
PRINTS #MSG11 
055024 #MSG11,-(SP) 
000001 #1,-(SP) 
MOV SP,RO 
CSPNTS 
000004 #4,SP 
PRINTS #MSG12 


055137 ans6le ~(SP) 
000001 #1,-(SP) 


NN 
San 
paar per oars 
Oa 
-—S 
ao 


et ek kk ek dd dd od od = 
Soooooooooooooeo 
Pa ee ene er ee eer ee Pee Pee er ee er er er 
MPNNNNPoNPPNNh = 


WrNrnrnh——SSo0O 
mM MLO! RoW 


oo o-0C0°Oo 3o=0o0° 


MADNMNOAMUAAN 
—— CKO———] OH 





abe SEQ 129 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11_30A(1052) 20-JUL-83_ 13:27 PAGE 130 
CZUACA.P11 = 19=JUL~83 17:13 CLI ACTION TABLE AND ROUTINES 
6544 101236 010600 mov. SP, RO 
6545 101240 104416 TRAP —-CSPNTS 
6546 101242 062706 000004 ADD #4, SP 
6547 101246 PSPUSH R2,R3,R4 ; SAVE REGISTERS 
6548 101254 CALL. FUNCT #WDMULA ; WRITE MULTICAST ADDRESS LIST 
6549 101266 PSPOP Re ; CHECK FOR ERROR 
6550 101270 001404 BEQ =: 10S : IF OK, CONTINUE 
6551 101272 ERRHRD 25, EMSG25 ; ELSE REPORT ERROR 
6552 101272 104456 TRAP CSERHRD 
6553 101274 000031 WORD 25 
6554 101276 065442 “WORD  EMSG25 
6555 101300 000000 0 
6556 101302 005037 050550 10$: CLR ‘TEMP ; CLEAR "NO, NODES IN LAST MIN.* COUNTER 
6557 101306 005037 050552 CLR TEMP ; CLEAR NODE TYPE ARGUMENT (SET TO TARGET) 
6558 101312 005037 050554 CLR = TEMP2 ; SET INTERVAL COUNTER 
6559 101316 012737 000012 050556 MOV =. #12, TEMP3 ; SET "MINS. SINCE LAST NEW NODE’ COUNTER 
6560 101324 012737 002404 002402 MOV - #NODTBL, SLOT ; SET SLOT TO BEGINING OF NODE TABLE 
6561 101332 012704 003720 MOV —- ATIMERS: RG ; SET UP FOR 1 MINUTE LOOP 
6562 101336 012714 000074 19$: MOV #60.,(R4) 
6563 101342 208: BREAK ; ALLOW FOR CONTROL C INTERRUPTION 
6564 101342 104422 TRAP CSBRK 
6565 101344 005714 TST = (R4) ; SEE IF INTERVAL IS UP 
6566 101346 001501 BEQ = -40$ : IF YES, 
6567 101350 ALL RECEVE ; ELSE, CHECK FOR RECEPTION OF 1D MESSAGE 
6568 101356 PSPOP RO ; R2 HOLDS NO OF MESSAGES RECEIVED 
6569 101360 001770 BEQ ; IF NONE, KEEP LOOKING 
6570 101362 013703 003764 MOV GNXT .R3 i If ONE. “GET RECEIVE RING POINTER 
6571 101366 CALL GETRNX” RRGNKT UPDATE POINT 
6572 101400 016303 000002 MOV =—-2(R3) ,R3 ; POINT R3 TO MESSAGE BUFFER 
6573 101404 062703 000006 ADD #SOURCC, R3 ; POINT R3 TO NODE ADDRESS 
6574 101410 012702 002404 MOV #NODTBL -R2 ; R2 TO NODE TABLE 
6575 101414 21$: CALL © CMPADR R2,R3 : SEE IF NODE ALREADY ON TABLE 
6576 101426 PSPOP RI 
6577 101430 001744 BEQ = «208 ; IF SAME, DON'T ADD TO TABLE 
6578 101432 062702 000010 228: ADD = #10.R2 : ELSE CHECK NEXT TABLE ENTRY 
6579 101436 022712 177777 CMP = #=1, (R2) ; SEE IF AT END OF TABLE 
6580 101442 001364 BNE 218 ; IF NO, COMPARE NEXT ENTRY 
6581 101444 CALL  FINDSL ; __IF YES, GET NEXT TABLE SLOT 
6582 101452 PSPOP 2 ; SEE IF TABLE FULL 
6583 101454 001023 BNE 358 ; If YES, BRANCH 
6584 101456 013702 002402 mov ‘SLOT. ; IF NO, ADD NODE TO TABLE 
6585 101462 012322 MOV —-(R3)+, (R2)+ ; 
6586 101464 012322 MOV —-(R3)+, (R2)+ ; SIX BYTES WORTH 
6587 101466 011312 MOV. —-(R3),, (R2) ; 
6588 101470 113762 050552 000003 MOV —- TEMP1, 3(R2) ; SET NODE TYPE (TARGET OR ASSIST) 
6589 101476 105137 05055 COMB = TEMP1 ; SWITCH TYPE FOR NEXT TIME 
6590 101502 142737 000376 050552 BIcB #376, TEMP! ; 
6591 101510 005237 05055 INC TEMP ; INCREMENT "NODES IN LAST MIN.* COUNTER 
6592 101514 012737 000013 050556 MOV =: #13, TEMPS ; RESET "MINS. SINCE LAST NODE’ COUNTER 
6593 101522 000707 R 0$ ; CHECK FOR MORE INPUT 
659% 101524 35$:  PRINTB #TABFUL,#NOD ; PRINT "TABLE FULL'* MESSAGE 
6595 101524 012746 053701 MOV  #NOD, (SP) 
659 .101530 012746 053560 MOV —- #TABFUL ,~(SP) 
6597 101534 012746 000002 MOV =: #2, =( SPS 
6598 101540 010600 MOV : 
6599 101542 104414 TRAP —-CSPNTB 


N 10 


SEQ 130 
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6600 101544 062706 000006 ADD #6,SP 
6601 101550 000430 BR 50$ 
6602 101552 005337 050556 40$: DEC TEMP3 3 SEE IF 10 MINS SINCE LAST NODE 
6603 101556 001425 BEQ 50$ ; IF T 
6604 101560 005237 050554 INC TEMP2 3 SEE iF TIME IS UP 
6605 101564 023727 050554 000050 CMP TEMP2 #40. 
6606 101572 001417 BEQ 50$ ; IF YES, EXIT , b 
6607 101574 PRINTS #BLDMSG, TEMP, TEMP2 : ELSE, PRINT ‘STILL WORKING’ MESSAGE 
6608 101574 013746 050554 MOV TEMP2,-(SP) 
6609 101600 013746 050550 MOV TEMP, =(SP) 
6610 101604 012746 052757 MOV #BLDMSG,-(SP) 
6611 101610 012746 000003 MOV #3,- 
6612 101614 010600 MOV . 
6613 101616 104416 TRAP  C$PNTS 
6614 101620 062706 000010 ADD #10,SP 
6615 101624 005037 050550 CLR TEMP 
6616 101630 000642 BR 19$ 
6617 101632 012737 000000 050044 50$: MOV #0. SUDMC +4 : CLEAR MULTICAST ADDRESS LIST 
6618 101640 CALL #WDMULA : WRITE 0 INTO LIST LENGTH 
6619 101652 P$POP : CHECK FOR oR 
6620 101654 001404 BEQ 54$ : IF OK CONTINUE 
6621 101656 ERRHRD 34,EMSG25 : ELSE, REPORT ERROR 
6622 1016056 104456 TRAP §CSERHRD 
6623 101660 690042 «WORD 34 
6624 101662 065442 -WORD EMSG25 
6625 101664 000000 .WORD 0 
6626 101666 004737 110364 54$: JSR PC,ACTSND : PRINT NODE TABLE 
6627 101672 012737 000400 050044 MOV #400, $WDMC+4 : RESET MULTICAST LIST FOR 1 ENTRY 
6628 101700 PSPOP R2,R3,R4 > RESTORE REGISTERS 
6629 101706 000207 RTS PC 
6630 
6631 
6632 : 
6635 sACTION ROUTINE TO PRINT OUT THE SUMMARY DATA 
6635 ! 
6636 101710 105037 003160 ACTSUM: CLRB PSNNUF :CLEAR NOTNUF FLAG 
6637 101714 P$PUSH R2,R3,R 
6638 101722 012701 002656 MOV Meriter R1 : MOVE ADDRESS OF TABLE TO R1 
6639 101726 005711 TST (R1) : SEE IF TABLE EMPT 
6640 101730 001013 BNE 5$ : IF NOT, CONT. 
6641 101732 PRINTF #TABEMT,#SUMM t ELSE PRINT ‘TABLE EMPTY’ MESSAGE 
6642 101732 012746 053706 MOV #SUMM,-(SP) 
6643 101736 012746 053632 MOV #TABEMT ,-(SP) 
6644 101742 012746 000002 MOV #2,-(SP) 
6645 101746 010600 P.R 
6646 101750 104417 TRAP  C$PNTF 
6647 101752 062706 000006 ADD #6,SP 
6648 101756 000536 BR 30$ 3 EXIT 
6649 101760 021127 177777 5$: CMP (R1) ,#=1 : SEE IF AT END OF TABLE 
6650 101764 001533 BEQ 30$ : IF YES, EXIT 
6651 101766 005711 TST (R1) : SEE IF REST OF TABLE EMPTY 
6652 101770 001531 BEG, 30$ : IF YES, EXIT 
6653 101772 CAL BINHEX R1,#6,4STRBUF ; PRINT SUMMARY DATA 
6654 102012 PRINTF #SUMMS1,#S TRBUF : NODE ADDRESS 
6655 102012 012746 002322 MOV #STRBUF ,-(SP) 
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012746 sums -(SP) 
012746 sP5 
010600 MOV oe a0” 
104417 CSPNTF 
062706 #6,SP 
FIRST HEADER 
#SUMMS2,-(SP) 
1,-(SP) 


000004 

000006 MOV ; RX NOT COMPLETE 

000010 MOV = RX COMPLET 

000012 MOV (R1) = LENGTH ERRORS 
PRINTF (AND R R2, R3,R4 : PRINT THEM OUT 


Soca 
~ 


R4,-(SP) 
R3,~-(SP) 


o 


067322 
000004 


— 
RS 
ee pepe He 

~ oO 


CSPNTF 
000012 #12,SP 
PRINTF ; SECOND HEADER 
067351 #SUMMSS = (SP) 
000001 #1,-(SP) 
SP,RO 
CSPNTF 
000004 #4,SP 
000014 MOV 14(R1) ,R2 ; COMPARE ERRORS 
000016 ADD #16,R1 ; BYTES COMPARED 
CALL BINDEC ; PUT INTO ASCII STRING 
PRINTF #SUMMSS, R2, #DECSTR ; PRINT THEM OUT 
075200 MO re ype it -(SP) 


' R2,-(SP 

067434 aSinniss -(SP) 

000003 #3,-(SP) 
SP-RO 


CSPNTF 
000010 ADD #10. SP 
000004 ADD #4,R1 ; BYTES TRANSFERED 
CALL  BINDEC R1 : PUT INTO ASCII STRING 
PRINTF #SUMMS6,4DECSTR : PRINT 
$399 roe 
000002 #2,-(SP5 


CSPNTF 
000006 ADD #6,SP 
000004 . ; POINT R1 TO NEXT TABLE ENTRY 
; DO IT ALL AGAIN 


Sosnwo 


ad od od od ed 
horny 


Nm 
rx 


ad ed od 
www 
ofnNeo 


oo 
POPIPINPIPONPOPINYNPONIPNNGPSPOPE PPV PYNPNory 
od od od od od Ooo 
Aas 
ooos 


APSA SSPE St att at at att taf at xt part wt tot 
% —— 
AVN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


102262 000207 
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102264 


102464 


19=JUL 


105737 


105037 


001012 
012746 


001402 
000137 


001402 
000137 


-83 17:1 


003162 


103240 
003160 


053051 
000001 
000004 
103240 


177776 
050300 
010000 


103146 


103160 


050554 
000002 
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SEQ 132 


20-JUL-83 27 PAGE 133 


sACTION ROUTINE TO INITIATE THE REQUEST ID TEST TO THE SPECIFIED NODE 


FUNCTIONAL SE Ts tan 


INPUTS = 
OUTPUTS = 
CALLING PROCEDURE = JSR PC, ACTIDT 


tom} 
ACTIDT: TSTB 
BEQ 


JMP 
CLRB 


CALL 
P$POP 
BNE 
PRINTF 


PSAERR 
1$ 
55$ 


1$: PSNNUF 
ate #ADRBUF ,AILLADR : 


2$ 
#ILADMS 


55$ 
R1,R2,R3,R4 : 
_ #ADRBUF ,APHYADR ; 
27$ 

#-2, TEMP2 
#$WDMO,R1 
#10000,2(R1) 
FUNCT #WDMODE 
Re 

3$ 


40$ 
BLDREQ 
XMIT 


R 
4$ 
45$ 


SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 
: HE COMMAND LINE. 
ES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 
AN ERROR IS REPORTED TO THE OPERATOR. 
IMPLICIT = THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF. 
SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 


SIDE EFFECTS = XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUB. 
REGISTER USAGE - A ett ry. SWDOMO FOR WRITE MODE OPERATIONS. 


R3 POINTS TO THE a ties MESSAGE BUFFER. 
R4 POINTS TO TIMOUT TIMER 


SEE IF ADDRESS ENTERED WAS VALID 
; IF NOT, EXIT ACTION ROUTINE 


CLEAR NOTNUF 


FLAG 
SEE IF ILLEGAL ADDRESS 


IF NO, CONTINUE 
ELSE PRINT ILLEGAL =: at ov 


#4,SP 


; SAVE REGISTERS 


SEE IF ADDRESS IS OWN (HOST NODE) 


; SET COUNTER FOR NO. OF TIMES TRIED 
; SET UP TO WRI 


TE 
10000: TPAD =1 (PAD TRANSMIT BUFFERS) 


; WRITE MODE 
; CHECK FOR ERROR 


BR IF ERROR 


; BUILD REQUEST ID MESSAGE PACKET 
; TRANSMIT REQUES 
; GET RESULTS, R2 = 


SUCCESS/FAILURE 
IF OK BRANCH 
ELSE JUMP TO 45$ 








CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
19=JUL=83 17:13 


CZUACA.P11 
6768 102470 
6769 102474 
6770 102476 
6771 102476 
6772 102502 
6773 102506 
6774 102510 
6775 102512 
6776 102516 
6777 102522 
6778 102526 
6779 102532 
6780 102532 
6781 102534 
6782 102536 
6783 102540 
6784 102546 
6785 102550 
6786 102552 
6787 102556 
6788 102570 
6789 102574 
6790 Insets 
6791 102604 
6792 102610 
6793 
6794 102612 
6795 102612 
6796 102616 
6797 102622 
6798 102624 
6799 102626 
6800 102632 
6801 2636 
6802 
6803 nets 
6804 102646 
6805 102652 
6806 
6807 102654 
6808 102660 
6809 102666 
6810 102670 
6811 102674 
6812 102714 
6813 102714 
6814 102720 
6815 102724 
6816 102730 
6817 102732 
6818 102734 
6819 102740 
6820 102744 
6821 102744 
6822 102746 
6823 102752 


005737 
001412 


012746 


012714 
104422 


005714 
001425 


001770 
013703 


016303 


001350 


012746 


012703 
012702 
000410 


005237 


050534 


052675 
000001 


000004 


000012 


003764 


000002 
000022 


050554 


065266 
000001 


000004 
050500 
103170 


050413 
050454 
050476 
000056 
000042 
002322 


066440 
000002 


000006 
000022 


066477 
000002 


051115 


050510 
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MACY11_30A(1052) 
CLI ACTION TABLE AND ROUTINES 


4$: TST RETRYS 
BEQ $ 
PRINTF #RTRYER 
JMP 52$ 
5$: MOV ATIMERS RG 
MOV #10.,(R4) 
15$: BREAK 
TST (R4) 
BEQ 20$ 
CALL RECEVE 
P$POP R2 
BEQ 
MOV RRGNXT,R3 
CALL GETRNX #RRGNXT 
CMP SIRCPT(R3) ,#' MR 
BEQ 25$ 
INC TEMP2 
BNE 15$ 
20$: PRINTF #EMSG22 
INC S.NREC 
JMP 51$ 
22$: MOV #UCB22+13,R3 
MOV #UCB22+54,R2 
BR 27$ 


25$: INC $.REC 

#46.,S.XFER 
#SIADDR,R2 

BINHEX R2,#6,4STRBUF 
#SIMSG1,#STRBUF 


27$: L 
PRINTF 


SIRCPT(R3) ,R2 


MOV 
PRINTF #SIMSG2,R2- 


Be Fe Ge Se Ge Ge Ge Be Se Se Be Se 


20-JUL-83 — 27 PAGE 134 


SEQ 133 
SEE IF FALL FAILED DUE TO EXCESSIVE COLLISIONS 
YES, BRint "EXCESSIVE pGOLLISIONs® MESSAGE 
RTRY ER,=(SP) 
MOV (SP) 
MOV $p “RO 
TRAP  CSPNTF 
ADD #4,SP 
EXIT 
SET UP FOR 10 SECOND TIMOUT 
TRAP  C$BRK 
SEE IF TIME HAS EXPIRED 


POIN 
POINT R3_ TO MESSAGE BUFFER 
SEE IF MESSAGE RECIEVED IS IN REPLY TO ONE SEN 
IF Y BRANCH TO 25$ 


ES, 
INCREMENT RETRY COUNTER 
IF NO, LOOK FOR CORRECT REPLY MESSAGE 


ELSE, REPORT ERROR 
#EMSG22,-(SP) 
#1,-(SP) 


MOV 

MOV SP,RO 

TRAP CSPNTF 
#4,SP 


UPDATE SUMMARY DATA 
AND EXIT 


POINT R3_TO SAME PLACE IN MESSAGE AS 
ined uae SYS ID, R2 TO 


INCREMENT ‘RECEIVED MESSAGES* COUNTER 
E "BYTES TRANSFERED*® COUNTER 
ER INTO R2 


O ADDRESS 
PUT ADDRESS INTO STRBUF 
PRINT REMOTE NODE ADDRESS 


MOV #STRBUF ,-(SP) 
MOV #SIMSG1,-(SP) 
MOV #2,-(SP) 
MOV SPR 
TRAP CSPNTF 
ADD #6,SP 
GET RECEIPT NUMBER 
PRINT RECEIPT NUMBER 
MOV R2,-(SP) 
MOV #SIMSG2,-(SP) 


MOV #2,-(SP) 
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AGNOSTIC MACY11_30A(1052) 3 gh ar ad PAGE 135 


CZUACAO DEUNA NI EXERCISER DI 
17:13 CLI ACTION TABLE AND ROUTIN 


CZUACA.P11 19=JUL=83 17: 


102756 010600 MOV 
104417 TRAP 
062706 000006 ADD 
116302 000027 MOVB SIVERS(R3) ,R2 ; GET VERSION NO. AND PRINT 
010266 PRINTF #SIMSG3,R2 


066532 
000002 


104417 

062706 000006 A 
116302 000030 MOVB  SIECO(R3),R2 ; GET ECO NO. AND PRINT 
eens PRINTF #SIMSG4,R2 


066572 
000002 


062706 000006 
116302 000031 SIUECO(R3) ,R2 


MOVB 
PRINTF #SIMSG5,R2 


066613 
000002 


000006 
000035 MOVB SIFNCT(R3) ,R2 
PRINTF #SIMSG6,R2 


066641 
000002 


000006 


000053 MOVB = SIDEV(R3) ,R2 
PRINTF #SIMSG7,R2 
066667 
000002 


C 
000006 #6,SP 
51$ ; EXIT 


23,EMSG23,ERR1 ; ERROR =~ CAN'T WRITE MODE 
io. CSERDF 


-WORD EMSG23 
-WORD ERR1 
54$ 


24, EMSG24 ,ERR1 ; ERROR == CAN'T TRANSMIT PACKETS 
TRAP CSERDF 


“WORD EMSG24 


307 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
31 
3 
3 
31 


1030 
10 
10 
10 
1 
103 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
03160 
03162 
03164 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
CZUACA.P11 19-JUL=83 17:1 


103166 067460 
005061 000002 


001347 
009207 


Seeesressseneeoreess 


103242 105714 
103244 1401 
103246 37 
103250 012737 062500 002310 
103256 013701 002370 
6901 103262 006301 
6902 103264 062701 003262 
6903 103270 
6904 103270 012746 054641 
6905 103274 012746 000001 
6906 103300 01 
6907 103302 104417 
6908 103304 062 000004 
6909 103310 
6910 103310 013746 002374 
6911 103314 013746 002372 
6912 103320 011146 
6913 103322 012746 055276 
6914 IO seeS 012746 
6915 103332 010600 
6916 103334 104417 
6917 103336 062706 000012 
6918 103342 105037 003160 
6919 103346 000207 
6920 
6921 
6922 
6923 
6924 
6925 
6926 103350 012737 000020 003672 
6927 103356 207 
6928 
6929 
$930 
6931 
6932 
6933 
6934 
6935 103360 
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MACY11_ 30A(1052) oe le — 27 PAGE 136 
CLI ACTION TABLE AND ROUTINE 


«WORD 
51$: CALL WRITES #1,#ADRBUF 3; UPDATE SUMMARY TABLE 
528: CLR 2(R1) ; DISABLE TRANSMIT PADDING 
CALL es #WDMODE 
P$ R 3 CHECK FOR ERROR 
BNE 40$ : _IF ONE, REPORT IT 
54$: P R1,R2,R3,R4 ; RESTORE REGISTERS 
55$: RTS PC 


SACTION ROUTINE TO CHECK FOR ADDITION PARAMETER CHANGE INPUTS 
ZAND PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 


ACTMSG: TSTB (R4) sCHECK FOR ADDITIONAL INPUT 
BEQ 12$ F NO 


TIF YES RETURN 


SEQ 135 


ERR1 


BR 50$ 
12$: MOV #CMDTY6,KEYWD1 

MOV PSTYPE,R1 :GET MESSAGE TYPE ASCII STRING ADDRESS 

ASL R1 S INTO R1 

ADD #MSGTAB,R1 

PRINTF #MSGPRM :PRINT "MESSAGE* COMMAND MESSAGE 
MOV #MSGPRM, -(SP) 
MOV #1,-(SP) 
MOV SP-RO 
TRAP  CSPNTF 
ADD #4,SP 

PRINTF 4#MSG4,(R1),P$SIZE.PSCPYS PRINT MSG PARAMETERS 
MOV PSCPYS,-(SP) 
MOV P$SIZE.-(SP) 
MOV (R1),-(SP) 
MOV #MSG4,-(SP) 
MOV #4,-(SP) 
MOV “RO 
TRAP —- CSPNTF 
ADD #12,SP 

CLRB = PSNNUF ZCLEAR NOTNUF FLAG 

50$: RTS PC 


SACTION ROUTINE 


ACTEXT: MOV 
RTS 


TO RETURN CONTROL TO THE SUPERVISOR 


SeORET EPLAS zSET EXIT FLAG 


ZACTION ROUTINE TO TAKE NI NODE ADDRESS FROM INPUT STRING BUFFER 
zAND STORE IT IN THE BUFFER CALLED ADRBUF 


ACTXAD: CALL EDPACK CBOADR ,#ADRBUF , #6 


PUT NODE ADDRESS INTO ADRBUF 
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SS petemenies MACY11_ 30A(1052) Ce rie — 27 PAGE 137 
CLI ACTION TABLE AND ROUTIN 


CZUACAO DE 
CZUACA.P11 


§ 


oOo 
~ 


PSAERR 3SET ADDRESS=12 CHAR. GOOD/BAD FLAG 
003162 z1F GOOD, RETURN 


BEQ 10$ 
PRINTF #CADRER sELSE, PRINT ERROR MESSAGE 
053232 MOV #CADRER,=(SP) 
000001 MOV #1,-(SP) 
MOV SP,R 
TRAP CSPNTF 


000004 ADD #4,SP 
003160 CLRB PSNNUF ; AND CLEAR "NOT ENOUGH’ FLAG 
10S: RTS PC 


SELES 
ORES 


SEES E 
oe 


Soooooooooeo 
#S 


a ae ce a ed ced ed ed aed ed 


3 


ZACTION ROUTINE TO STORE POINTER TO BEGINING OF OPERATOR INPUT ADDRESS 
3 IN COMMAND INPUT BUFFER 


ACTSR4: MOV R4,CBOADR SAVE STRING POINTER 
108: RTS PC 


TACTION ROUTINE TO SET MESSAGE TYPE = ALPHA FLAG 


012737 000000 002370 ACTALP: MOV #ALPHA,PSTYPE SET MESSAGE TYPE 
000207 RTS PC 


ACTION ROUTINE TO SET MESSAGE TYPE = ALL ONES FLAG 


012737 000001 002370 ACTONE: MOV #ONES ,PSTYPE SET MESSAGE TYPE 
000207 RTS PC 


ZACTION ROUTINE TO SET MESSAGE TYPE = ALL ZEROS FLAG 


012737 000002 002370 ACTZRO: MOV #ZEROS ,PSTYPE sSET MESSAGE TYPE 
000207 RTS PC 


ZACTION ROUTINE TO SET MESSAGE TYPE = ALTERNATING ONES FLAG 


012737 000003 002370 ACTIAL: MOV #ONEALT , PSTYPE :SET MESSAGE TYPE 
000207 RTS PC 


SACTION ROUTINE TO SET MESSAGE TYPE = ALTERNATING ZEROS FLAG 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 138 
CZUACA.P11 19-JUL-83 17:1 CLI ACTION TABLE AND ROUTINES 


012737 000004 002370 ACTOAL: MOV #ZROALT ,PSTYPE 3SET MESSAGE TYPE 
000207 RTS PC 


SACTION ROUTINE TO SET MESSAGE TYPE = CCITT FLAG 


ACTCTT: MOV CCITT PSTYPE sSET MESSAGE TYPE 
RTS PC 


ACTION ROUTINE TO SET MESSAGE TYPE rSRATOR SELECTED INPUT 


ACTOPR: CLRB PSMERR er MESSAGE ERROR FLAG 

JSR PC, TRVADR ARSE THROUGH INPUT STRING 
PS$GDBD ‘Test GOOD/BAD FLAG 
10$ 1F GOOD, BR 10s. 
P$GDBD CLEAR FLAG 
20S 3SET CTARGT FLAG AND ny 
#OPRSEL , CFLAG : CHECK _"t SEE _IF STRING VALID 
0$ 31 Gn ai WITH ERROR FLAG SET 
#OPRSEL , PSTYPE 3SET NMESS ET 


AGE TYPE 
SELMSG CBOADR ;P'T OPERATOR SELECTED STRING INTO BUFFER 


50$ 3 RETURN 
A#CTARGT,CFLAG 7SEE IF CTARGT FLAG SET, IF YES ERROR 
BNE 0s :1F NOT SET, $ 
PRINTF #UNBOND ELSE PRINT UNBOUNDED INPUT STRING ERR. jr 7 


MOV 

MOV “" (SP) 

MOV 

TRAP eSPNTF 

000004 ADD #4,SP 
BR 50$ :RETURN 

003163 30$:  TSTB  PS$MERR z1F PSMERR FLAG SET, UNBOUNDED STRING 
BNE WAS ENTERED: ERROR ALREADY HANDLED 

177777 MOVB #-1,P$GDBD SSET ERROR FLAG AND RETURN 

50$: RTS PC RETURN 


N@-NUMNNG 


SECey 
= &sh 


escsssssssssss3ss 


Eee 


054252 
000001 


RRS 
EeRueNoes 


333 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ooooooece]oa 


e 


ZACTION ROUTINE TO CHECK FOR MORE INPUT AFTER MESSAGE TYPE HAS BEEN 


103242 ACTTYP: ro ete CHECK FOR ADDITIONAL COMMANDS 


SACTION ROUTINE TO INPUT MESSAGE SIZE PARAMETER, CHECK TO SEE IF 
31T IS WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 139 
CZUACA.P11 19=JUL-83 17: CLI ACTION TABLE AND ROUTINES 


3SEE IF MORE INPUT EXISTA 


SEA 003154 000037 ACTSZE: a4 lat sCHECK FOR VALID SIZE RANGE 
022737 002673 003154 MP #1467. ,PSNUM 

003404 10$ 31F VALID CONTINUE 

DEEL 003154 002372 PSNUM,PS$SIZE SET MESSAGE SIZE 


#SIZLMT sPRINT SIZE LIMITS semaar* Tt 
Sar ei 


000004 ADD 
103242 : PC,ACTMSG CHECK FOR ADDITIONAL COMMANDS 
000207 RTS PC 


ZACTION ROUTINE TO INPUT COPIES PARAMETER, CHECK TO SEE IF IT 
WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO SEE 
sMORE INPUT PARAMETERS EXIST 


023727 003154 000000 ACTCPY: a4 PSNUM #0 sCHECK FOR VALID COPIES RANGE 


IS 
IF 


000400 003154 #256. ,PSNUM 
z1F VALID, CONTINUE 
003154 002374 PSNUM,PSCPYS zSET MESSAGE COPIES 


BR 
: PRINTF #CPYLMT zPRINT COPY LIMIT EXCEEDED MESSAGE 
053775 MOV #CPYLMT ,-(SP) 
000001 MOV #1,-(SP5 
MOV SP,RO 
TRAP CSPNTF 
000004 ADD #4,SP 
103242 : Ho * pach CHECK FOR ADDITIONAL COMMANDS 


ZACTION ROUTINE TO CLEAR NODE SPECIFIED BY PHYSICAL ADDRESS FROM NODE TABLE 


003160 ACTNAD: ee PS$NNUF CLEAR NOTNUF FLAG 

003162 PSAERR ;SEE IF eT ENTERED WAS VALID 
35$ ;_ IF NOT, EXIT_ACTION ROUTINE 
R2,R3 ;SAVE R2 AND R3 


WADRBUF ,R2 ;MOVE ADDRESS OF eet INTO R2 
#NODTBL RS ;MOVE ADDRESS OF NODE TABLE INTO R3 
orren R2,R3 SEE IF ADDRESSES MATCH 


25$ sIF YES, BR 25$ 
#10,R3 ELSE POINT R3 ? NEXT ENTRY 
#-1,(R3) ;SEE IF END OF TABLE 
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SEQ 139 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 140 
CZUACA.P11 = 19=JUL=83 17:13 CLI ACTION TABLE AND ROUTINES 
7104 104074 001364 BNE 21$ z1F NOT, COMPARE NEXT ENTRY 
7105 104076 PRINTF #NOCMPR ‘ELSE, PRINT ADDRESS DOESN'T COMPARE MSG. 
7106 104076 012746 054160 MOV #NOCMOR, = (SP) 
7107 104102 012746 000001 MOV #1,-(SP) 
7108 104106 010600 MOV SP,RO 
7109 104110 104417 TRAP  CS$PNTF 
7110 104112 062706 000004 ADD #4,SP 
7111 104116 000414 BR 30$ RETURN 
7112 104120 005023 25$: CLR (R3)+ TELSE, CLEAR NODE FROM TABLE 
7113 104122 005023 CLR (R3)+ 
7114 104124 005023 CLR (R3)+ 
7115 104126 005013 CLR (R3) 
7116 104130 PRINTF #ADRDEL ;PRINT NODE DELETED FROM TABLE MESSAGE 
7117 104130 012746 054340 MOV #ADRDEL ,- (SP) 
7118 104134 012746 000001 MOV #1,-(SP) 
7119 104140 010600 MOV SP,RO 
7120 104142 104417 TRAP  CSPNTF 
7121 104144 062706 000004 ADD #4,SP 
7122 104150 30$: PSPOP = R2,R3 sRESTORE R2 AND R3 
7123 104154 000207 35$: RTS PC RETURN 
7125 
7126 : 
rie? SACTION ROUTINE TO CLEAR NODE TABLE 
7129 4 
7130 104156 ACTNAL: PSPUSH R2,R3 sSAVE R2,R3 
7131 104162 012703 000050 MOV #TBLLEN,R3 7SET INCR. COUNTER TO 40 
7132 104166 012702 002404 MOV #NODTBL,R2 sMOVE NODE TABLE ADDRESS INTO R2 
7133 104172 005022 10$: CLR (R2)+ [CLEAR BYTE IN NODE TABEL 
7134 104174 005303 DEC R3 :DECRIMENT COUNTER 
7135 104176 001375 BNE 10$ SCONTINUE UNTIL DONE 
7136 104200 PRINTF #TABCLR,#NOD [PRINT NODE TABLE CLEARED MESSAGE 
7137 104200 012746 053701 MOV (SP) 
7138 104204 012746 054514 MOV #TABCLR,=(SP) 
7139 104210 012746 000002 MOVs #2, =(SPS 
7140 104214 010600 MOV P.RO 
7141 104216 104417 TRAP  CSPNTF 
7142 104220 062706 000006 ADD #6,SP 
7143 104224 105037 003160 CLRB —s PSNNUF :CLEAR NOTNUF FLAG 
7144 104230 P$POP R2,R3 SRESTORE R2 AND R3 
7145 104234 600207 RTS PC 
7146 
7147 
7148 3 
7149 SACTION ROUTINE TO RUN SPECIFIED TEST 
7151 : 
7152 104236 105037 003160 ACTRUN: CLRB —- P$NNUF : CLEAR "NOT ENOUGH’ FLAG 
7153 104242 013737 003154 002376 V PSNUM,PSPASS 
7154 104250 022737 900032 002310 5$: CMP #CRNALL ,KEYWD1 : SEE IF “ALL* TEST 
7155 104256 001004 BNE 10$ : IF NO, CONTINUE 
7156 104260 CALL - RUNALL : IF YES, DO ALLNODE 
7157 104266 000423 BR 0$ 
7158 104270 022737 000033 002310 10$: CMP #CLUPPR,KEYWD1 : IS IT *LOOPPAIR® TEST 
7159 104276 001004 BNE 15$ : IF NO, CONTINUE 
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CZUACAO DEUNA NI pe Ne DIAGNOSTIC MACY11 30A(1052) ie te 27 PAGE 141 
CZUACA.P11 19=JUL=83 17:13 CLI ACTION TABLE AND ROUTINE 


104300 000613 RUNLUP ; IF YES, DO LOOPPAIR 
022737 000043 002310 15$: #CDIR,KEYwWD1 ; IS_IT "DIRECT® TEST 
001004 E ; IF NO, CONTINUE 

IF YES, DO DIRECT 


000403 BR 
208: RUNPAT ; ELSE, ITS ‘PATTERN® TEST 
023727 002376 177777 308: MP P$PASS ,#=1 ; SEE IF PASS SET FOR INDEFINATE 


; IF YES, LOOP 
002376 PS$PASS ; HAVE WE DONE ALL PASSES? 
5$ ; IF NO, LOOP 
000207 PC 


é 
5 


ptt eh epee pes 
¥3SSSao0 
OoOnono 


tt od od ot od 
wv 
Sone 


RRRRRRLEKK 


WW 


TACTION ROUTINE TO SET "RUN ALL’ FLAG 


012737 000032 0023510 ACTRNA: MOV #CRNALL ,KEYWD1 ; SET FLAG 
000207 RTS PC 


w 
w 
o 


SF 


RUNALL : DIRCOM ; RUN gt ting TEST 
P R1 ; K RESULTS 


ie te 
001415 5$ ; I @ BRANCH 
022701 000001 #1,R1 ; ELSE: WAS TABLE a 
001410 BEQ 3$ ; _IF_YES, DON'T PRINT ABORT MESSAGE 
PRINTS #PASABT ; ELSE ABORT TEST AND PRINT MESSAGE 
012746 061526 MOV year oF -(SP) 
000001 MOV “. o= (SP) 


MOV SP.RO 
TRAP CSPNTS 
000004 ADD #4,SP 
1 104770 : 32$ 
012737 002404 002402 : MOV #NODTBL , SLOT ; MOVE NODE TABLE ADDRESS TO SLOT 
FULSLT ; FIND FIRST ENTRY 
013701 002402 SLOT,R1 ; _AND PUT Lay 7H ADDRESS INTO R1 
013737 050562 : PSCPYS,CPYCNT ; SET UP LOOP FOR NO. OF COPIES 
062737 002402 —- Oras. ; UPDATE SLOT 


013702 002402 
; GET NEXT ASSIST NODE FROM TABLE 
022737 177777 002402 cMP 53 ; iF vis. AT END OF TABLE 


001515 .% BR 
BLDFAS R1,SLOT ; BUILD FOLL ASSIST MESSAGE 
XMIT ; TRANSMIT MESSAGE 

R3 ; CHECK RESULTS 


BEQ 17$ OK, CONTINUE 
ERRHRD 37,EMSG24 ; PRINT ERROR MESSAGE 
TRAP CSERHRD 


-WO 
-WORD ates 

CALL BINHEX R1 Saree : PRINT ERROR MESSAGE 

CALL BINHEX R2,#6,#STRBU 

PRINTB #TSTMS4, gaRGrt? A#STRBUF , WARGTY6, #STRBU1 ; ASSIST NODE = 
002344 MOV #STRBU1,-(SP) 
062603 MOV #ARGTY6,~(SP) 
002322 MOV #STRBUF ,-(SP) 


RRRSOS 


Swnnvn-— 


RRRRREKRRREKKRRKK KF 
ONONoOn 


SERRE OW 


RRR 
Wms 
NAQUSE 
MLOKOQNAONOG 


001404 


BRENNSES 


AAKALNVOS 


& 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRRRREKRRRRRRKKKK 


AX 
—— 
arn 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
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CZUACA.P11 


012746 


062706 


001405 


001274 
o6e701 
010137 


022737 
001231 


012737 
000207 


022701 
001400 


005001 
012737 


000014 


062013 
000001 


000004 
050562 


000010 
002402 


177777 


000043 


000001 


002404 
177777 
053701 


053632 
000002 


002402 


002310 


002402 
002402 
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MACY11 30A(1052) 20-JUL=83 13:27 PAGE 142 
CLI ACTION TABLE AND ROUTINES 


32$: 


#ARGTY7,=(SP) 
yt dee. =(SP) 
= (SP) 

% “RO 
C$PNTB 
#14,SP 


CALL RUNCOM ; DO RECEIVE LOOP 
P$POP R4 ; CHECK RESULTS 


BEQ 21$ 
ERRHRD 28,EMSG42,ERR3 


IF OK, LOOP SOME MORE 

ELSE PRINT ERROR MESSAGE 
TRAP CSERHRD 

-WORD 28 

WOR EMSG42 

ERR3S 

BR 101$ 

PRINTB #OKFU 

#OKFU,-(SP) 

#1,-(SP) 


ADD 
CPYCNT ; DECREMENT SCOPIES” COUNTER 
WRITES #2,R1,SLOT t ELSE, UPDATE SUMMARY TABLE 


#10,R1 ; POINT R1 TO NEXT TARGET NODE 
R1,SLOT ; UPDATE SLO 

FULSLT ; GET ADDRESS FROM TABLE 

#-1,SLOT ; SEE IF END OF TABLE 

10$ ; IF NO, CONTINUE ELSE, FINISHED 


SACTION ROUTINE TO SET "RUN LOOP DIRECT’ FLAG 


ACTDIR: 


RUNDIR: 


10$: 


DIRCOM: 
MO 


MOV #CDIR,KEYWD1 > SET FLAG 
RTS PC 


CALL DIRCOM ; CALL COMMON CODE 
#1,R1 ; WAS TABLE EMPTY? 
10$ ; IF YES, DON'T PRINT 


R1 ; CLEAR RESULTS REGISTER 
#NODTBL , SLOT : MOVE NODE TABLE oe TO SLOT 
FULSLT ; SEE IF TABLE EMP 


#-1,SLOT 
BNE IF NO CONTINUE 
PRINTF #TABEMT,#NOD ELSE, PRINT ‘TABLE aS ae 


MOV 
TRAP CSPNTF 
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SEQ 142 

CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 143 

CZ2UACA.P11- 19=JUL=83 17:13 CLI ACTION TABLE AND ROUTINES 
7272 105070 062706 000006 |, ADD #6,SP 
7273 105074 012701 000001 MOV #1,R1 : PUT "TABLE EMPTY’ INDICATOR IN R1 
7274 105100 000545 BR 32$ 
7275 105102 012737 002404 002402 9S: MOV #NODTBL , SLOT 
7276 105110 013737 002374 050562 10$: MOV PSCPYS, CPYCNT : SET UP FOR NO. OF COPIES 
7277 105116 CALL - FULSLT : GET NEXT NODE IN TABLE 
7278 105124 022737 177777 002402 CMP #-1,SLOT + SEE IF AT END OF TABLE 
7279 105132 001530 BEQ 32$ : IF YES, EXIT 
7280 105134 CALL BINHEX SLOT,#6,4STRBUF : PRINT ADDRESS BEING TESTED 
7281 105156 15$:  PRINTB #TSTMS2,#DIRECT.ASTRBUF : NODE ADDRESS 
7282 105156 012746 002322 MOV #STRBUF ,=(SP) 
7283 105162 012746 062173 MOV #DIRECT,-(SP) 
7284 105166 012746 061571 MOV #TSTMS2,-(SP) 
7285 105172 012746 000003 MOV #3,-(SP) 
7286 105176 010600 MOV SP,RO 
7287 105200 104414 TRAP  C$PNTB 
7288 105202 062706 000010 ADD #10,SP 
7289 105206 022737 000005 002310 CMP #CPATRN, KEYWD1 
7290 105214 001016 BNE 1 
7291 105216 013701 002370 MOV P$TYPE,R1 
7292 105222 006301 ASL R1 
7293 105224 062701 003262 ADD #MSGTAB,R1 
7294 105230 PRINTB #MESPA1, (R1) 
7295 105230 011146 MOV (R1),=(SP) 
7296 105232 012746 062125 MOV #MESPA1,-(SP) 
7297 105236 012746 000002 MOV #2,-(SP) 
7298 105242 010600 MOV SP_R 
7299 105244 104414 TRAP  C$PNTB 
7300 105246 062706 000006 ADD #6,SP 
7301 105252 16$: CALL  BLDLD SLOT : CALL BUILD LOOPDIRECT SUBROUTINE 
7302 105264 CALL XMIT : TRANSMIT LOOPDIRECT MESSAGES 
7303 105272 P$POP R2 : GET RESULTS, R2 = SUCCESS/FAILURE 
7304 105274 001405 BEQ 26$ : IF OK, EXIT 
7305 105276 25$:  ERRHRD 26,EMSG24 t ELSE PRINT ERROR MESSAGE 
7 105276 104456 TRAP  CSERHRD 
7307 105300 000032 WORD 
7308 105302 065366 “WORD EMSG24 
7309 105304 000000 “WORD 0 
7310 105306 000700 BR 10$ 
7311 105310 26$: CALL. —s« RUNCOM : DO RECIEVE LOOP 
7312 105316 P$POP 4 : GET RESULTS 
7313 105320 001407 BEQ 29$ : IF NO ERRORS, CONTINUE 
7314 105322 ERRHRD 27,EMSG34,ERR2 
7315 105322 104456 TRAP CSERHRD 
7316 105324 000033 WORD 
7317 105326 065732 “WORD EMSG34 
7318 105330 067516 “WORD ERR2 
7319 105332 012701 177777 MOV #-1,P1 : PUT ERROR INDICATOR INTO Ri 
7320 105336 000410 BR 101$ 
7321 105340 29$:  PRINTB #0K : RESPONSE Ok 
7322 105340 012746 061661 MOV #0K,-(SP) 
7323 105344 012746 000001 MOV #1,-(SP) 
7324 105350 010600 MOV j 
7325 105352 104414 TRAP C$PNTB 
7326 105354 062706 000004 ADD #4,SP 
7327 105360 005337 050562 101$: DEC CPYCNT : DECREMENT *COPIES* COUNTER 
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105364 001274 15$ 3 _IF MORE TO DO, + 
WRITES #1,SLOT ; ELSE,UPDATE SUMMARY TABLE 
este 000010 002402 30S: = amet ; INCREMENT TO NEXT NODE TABLE ENTRY 
105414 32$: RETURN R1 


SEQ 143 


SACTION ROUTINE TO SET "RUN LOOPPAIR’ FLAG 
105420 012737 000033 002310 ACTRNL: MOV #CLUPPR ,KEYWD1 ; SET FLAG 
105426 000207 RTS PC 


105430 005037 050552 RUNLUP: TEMP1 ; CLEAR "HEADER PRINTED’ FLAG 
012737 002404 002402 M og l amaatl ; MOVE NODE TABLE ADDRESS TO SLOT 


FULSL : SEE IF TABLE EMPTY 
022737 177777 002402 ¢ #-1,SLOT 
001014 BNE 9S ; IF NO, CONTINUE * 

PRINTF #TABEMT , #NOD ; ELSE, PRINT “TABLE EMPTY" MESSAGE 
012746 053701 MOV 


) 
053632 #TABEMT , -(SP) 
000002 #2.-(SP) 


SP, 
CSPNTF 
000006 30$ #6,SP 
002402 9$: #NODTBL, SLOT ; MOVE aw TABLE gt) SLOT 


013737 002374 050562 : 0 P$CPYS,CPYCNT ; SET UP FOR NO. OF COP 
FULSLT ; GET NEXT NODE IN TABLE 
022737 177777 002402 #-1,SLOT ; SEE IF AT_END OF TABLE 
106516 11$ ; IF YES, EXIT 


002402 : SLOT,R1 ; MOVE SLOT TO R1 
000007 000000 crt), ACTARLT ; se IF TARGET NODE 


F YES, BRANCH 
1 : ELSE, POINT R1 TO TARGET NODE 
062701 000010 A #10,R1 : AND R2 TO ASSIST NODE 


126127 000007 000000 i5$: 7(R1),ACTARGT ~ : SEE IF TARGET NODE 


001425 BEQ ; IF YES, OK 
: PRINTF #EMSG32 ; ELSE PRINT ERROR MESSAGE 
012746 065637 MOV #EMSG32,-(SP) 
000001 MOV #1,-(SP) 
SP,RO 
CSPNTF 
062706 000004 #4 ,SP 
PRINTF #PASABT 
012746 061526 #PASABT ,~(SP) 
000001 #1,-(SP) 
SP,RO 
CSPNTF 
000004 #4,SP 


106514 : _ EXIT 
; POINT R1_TO TARGET NODE 
062702 000010 ; AND R2 TO ASSIST NODE 
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000007 000001 19$: rye ca ; ‘e R2 Foe ERROR, TO ise fate 
20$: BLDAST R2,R1 ; BUILD TRANSMIT “ASSIST MESSAGE 
XMIT ; TRANSMIT MESSAGE 
; i RESULTS, R2 = SUCCESS/FAILURE 


BEQ 228 ; IF OK, EX 
218: ERRHRD 26,EMSG24 ; ELSE PRINT ERROR ine > ™ 


oa 
w 
mor 


CSERHRD 
EMSG24 
0 


106432 JMP 28$ 
CALL BINHEX R1,#6,4STRBUF ; PRINT ERROR MESSAGE 
CALL BINHEX R2,#6,4ST : 
PRINTB #TSTMS4,#ARGTY7 ,ASTRBUF ,AARGTY6 ,ASTRBUT ; Ss 


WSS FSS" 


pad. 46 =(SP) 


lolololololeloleolololofoelafoloelojoj—) 


ww 


ee ek ee et a ek dk kh ad dd dd od td 
So 
SSN 

S ons 

AMON 


000005 


062706 000014 #14,SP 
CALL RUNCOM ; DO RECIEVE LOOP 
P$POP R3 ; CHECK RESULTS 

001405 BEQ 23$ ; IF OK, CONT. 

ERRHRD 28,EMSG40,ERR3 

104456 _— 


EMSG40 
ERR3 
000410 BR 
PRINTB 


012746 061702 ; #OKRE -(SP) 
000001 Sp) 


sp. 
eSONTB 
062706 000004 ADD #4 ,SP 
$ BLDAST R1,R2 
XMIT 


"RESU its. 
21$ OK CONTINUE, ELSE REPORT ERROR 
BINHEX R1,46, ps phe oy PRINT ERROR MESSAGE 

BINHEX R2,#6, 


CALL TRBUI 
PRINTB #TSTMS4, PARGTY?, a#STRBUF , WARGTY6, MSTRBU1 ; «ASSIST NODE = 
002344 MOV #STRBU1 ,-(SP) 


000005 


o-Ooooo°o°o°o 


000014 #14,SP 
RUNCOM ; DO RECEIVE LOOP 





C 12 


SEQ 145 
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7440 106220 P$POP R3 3 GET RESULTS 

7441 106222 001405 BEQ 25$ : IF OK, CONT. 

7442 106224 ERRHRD 28,EMSG41,ERR3 

7443 106224 104456 TRAP CSERHRD 

7444 106226 000034 - WORD 8 

7445 106230 066263 -WORD EMSG41 

7446 106232 067604 -WORD ERR3 

7447 106234 000410 BR 102$ 

7448 106236 25$: PRINTB #OKTR 

7449 106236 012746 061746 MOV #OKTR,=-(SP) 

7450 106242 012746 000001 MOV #1,-(SP) 

7451 106246 010600 MOV SP,R 

7452 106250 104414 TRAP C$PNTB 

7453 106252 062706 000004 ADD #4 ,SP 

7454 106256 102$: CALL BLDFAS R1,R2 3 BUILD FULL ASSIST MESSAGE 

7455 106270 CALL XMIT ; TRANSMIT MESSAGE 

7456 106276 P$POP R4 ; CHECK RESULTS 

7457 106300 001402 BEQ 26$ : IF OK CONTINUE, ELSE REPORT ERROR 

7458 106302 000137 105706 JMP 21$ 

7459 106306 268: CAiL BINHEX R1 yo ttle ar 3 PRINT ERROR MESSAGE 

7460 106326 CALL BINHEX R2,#6,4 F 

7461 106346 PRINTB #TSTMS4, gaRGTY?S WSTRBUF ,MARGTY6,#STRBU1 ; ASSIST NODE = 

7462 106346 012746 002344 MOV #STRBUI, -(SP) 

7463 106352 012746 062603 MOV WARGTY6,~(SP) 

7464 106356 012746 002322 MOV STRBUF ,~(SP) 

7465 106362 012746 062613 MOV #ARGTY7,-(SP) 

7466 106366 012746 061624 MOV #TSTMS4,~(SP) 

7467 106372 012746 000005 MOV #5,-(SP) 

7468 106376 010600 MOV SP°RO 

7469 106400 104414 TRAP CS$PNTB 

7470 106402 062706 000014 ADD #14,SP 

7471 106406 CALL RUNCOM ; DO RECEIVE LOOP 

7472 106414 P$POP R3 ; CHECK RESULTS 

7473 =106416 001405 BEQ 28$ : IF NO ERRORS, CONT 

7474 106420 ERRHRD 28,EMSG42,ERR3 

7475 106420 104456 TRAP CSERHRD 

7476 106422 000034 - WORD 

7477 106424 066353 -WORD EMSG42 

7478 106426 067604 -WORD ERRS 

7479 106430 000410 BR 103$ 

7480 106432 28$: PRINTB 9 #OKFU 

7481 106432 012746 062013 MOV #OKFU,-(SP) 

7482 106436 012746 000001 MOV #1,-(SP) 

7483 106442 010600 MOV SP,RO 

7484 106444 104414 TRAP CS$PNTB 

7485 106446 062706 000004 ADD #4,SP 

7486 106452 005337 050562 103$: DEC CPYCNT ; DECREMENT ‘COPIES’ COUNTER 

7487 106456 001402 BEQ 29$ ; IF MORE TO DO, LOOP 

7488 106460 000137 105662 JMP 20$ 

7489 106464 298: CALL WRITES #2,R1,R2 3 ELSE,UPDATE SUMMARY TABLE 

7490 106502 062737 000020 002402 ADD #20,SLOT ; INCREMENT TO NEXT NODE TABLE ENTRY 

7491 106510 000137 105516 JMP 10$ 

ns 106514 30$: RETURN 

7494 106516 005737 050534 RUNCOM: TST RETRYS ; SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 

7495 106522 (01120 BNE 38$ : IF YES, BR, ELSE CONT. 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 


CZUACA.P11 
7496 106524 
7497 106530 
7498 106534 
7499 106536 
7500 106536 
7501 106540 
7502 106542 
7503 106544 
7504 106552 
7505 106554 
7506 106556 
7507 106564 
7508 106570 
7509 106574 
7510 106606 
7511 106612 
7512 106616 
7513 106622 
7514 106626 
7515 106630 
7516 106634 
7517 106642 
7518 106656 
7519 106646 
7520 106650 
7521 106654 
7522 106660 
7523 106664 
7524 106666 
7525 106670 
7526 106674 
7527 106676 
7528 106702 
7529 106706 
7530 106712 
7531 106720 
7532 106740 
7533 106742 
7534 106744 
7535 106750 
7536 106756 
7537 106762 
7538 
7539 106764 
7540 772 
7541 106776 
7542 
7543 107000 
7544 107004 
7545 107012 
7546 
7547 107016 
7548 
7549 
7550 
7551 


19=JUL=83 


2704 
012714 
005002 


001770 
063737 
005237 
013703 


016301 


012702 
010146 


3 
063737 


001425 


000415 


012737 
012702 
000407 


005237 
012737 
012702 


17:13 


003720 
000012 


050560 
050476 
003764 


050566 


050502 
062342 
177777 


050566 
067117 
000003 


000010 
000002 


062316 
177777 


050500 
062302 
177777 


050510 


002312 


050506 


002312 


002312 


002312 
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I ACTION TABLE AND ROUTINE 


OV ATIMERS RG 
MO #10 0.,(R4) 


35$: BREAK 
TST (R4) 
40$ 
CALL = RECEVE 
Ri 
35$ 
ADD XFER,S.XFER 
RRGNXT,R3 
CALL  GETRNX #RRGNXT 
MOV R 
BIC #170000,R1 
UB #4, 
CMP R1.BUFLEN 
37$ 


S.LEN 
MOV #LENGTH, KEYWD2 
PRINTX #LGERMS,BUFLEN,R1 


BR 50$ 
37$: MOV 2(R3) ,R3 
ADD 16(R3) ,R3 
ADD #30,R3 
ADD P$SIZE,S.BYTE 
CALL DATCMP *P$SIZE,CMPBUF ,.R3 
rer vi Qz 
Q 


50$ 
ADD R3,S.COMP 
MOV #COMPAR, oKEYWD2 


38$: MOV #RETRY ,KEYWD2 
#-1,R2 
40$: INC S.NREC 
MOV #NORESP ,KEYWD2 
#-1,R2 


50$: RETURN R2 


RORS 
UPDATE COMPARE ERRORS SUMMARY COUNTER 


SEQ 146 
3 SET UP FOR 10 SECOND TIMOUT 
; CLEAR RESULTS REGISTER 
TRAP C$BRK 
; SEE IF TIME A... EXPIRED 
: _IF YES, BRANCH 
: yt FOR ANSWER 
: R2H vated OF BUFFERS — 
: IF NO BUF FERS RECIEVED, 
: UPDATE BYTES TRANSFERED sum. COUNTER 
; UPDATE PACKETS RECEIVED SUM. COUNTER 
: GET se th RING POINTER 
; UPDATE POINTER 
: GET PACKET ert FROM DISCRIPTOR 
: ZERO OUT EXCESS INFOR 
: SUBTRACT CRC B 
: OF tx 8 LENGTH | ERROR 
¢ ELSE, UPDATE LENGTH ERRORS COUNTER 
3; MOVE ‘LENGTH’ TO ERROR INDICATOR 
: INDICATE ERROR TOR 
: PRINT LENGTH ERROR MESSACE 
MOV R1,-(S 
MOV BUFLEN,=(SP) 
MOV #LGERMS ,-(SP) 
MOV #3,-(SP 
Vv SP,RO 
TRAP CSPNTX 
ADD #10,SP 
; POINT R3 TO MESSAGE BUFFER 
; POINT R3 TO DATA_AFTER SKIP COUNT 
; POINT R3 TO FIRST DATA BYTE 
; UPDATE BYTES COMPARED SUMMARY COUNTER 
; CHECK FOR DATA COMPARE ERRORS 
: eR RCRee 


ZACTION ROUTINE TO SET "RUN PATTERN’ FLAG 


MOVE ‘COMPARE* TO ERROR INDICATOR 
INDICATE ERROR TO R2 


MOVE “EXCESSIVE COLLISIONS’ TO ERROR INCICATOR 
INDICATE ERROR IN R2 


; UPDATE Mag NOT RECEIVED COUNTER 
MOVE ‘NO RESPONCE’ 

; INDICATE ERROR TO R2 

; RETURN 


TO ERROR INDICATOR 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
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107022 
107030 


107032 
1070 


107174 


19=JUL-83 17 


012737 
000207 


005037 


002362 


013701 
006301 
062701 


012746 


062706 
013746 


000207 


:13 


000005 


002370 


000001 


002370 
000005 


002370 
003262 
054641 
000001 
000004 


002374 
002372 


055276 
000004 


000012 
003160 


000000 
001000 
000001 


053716 
000001 


002310 


002370 


002370 
002372 
002374 
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SEQ 147 


ACTPAT: MOV #CPATRN,KEYWD1 3SET FLAG 
RTS PC 


SAVE TYPE PARAMETER 
SET TYPE TO FIRST TYPE 
SEND MESSAGE 
FF ont cont TO KEEP STACK IN ORDER 
ELSE WAS TABLE EMPTY 
IF TURN 
SET ro NEXT TYPE 
SEE IF DONE ALL OF THEM 


IF NOT, DO MOR 
RESTORE MESSAGE TYPE 


RUNPAT: P$PUSH shia 
$$ CLR 


10$: TYPE 

#5, PSTYPE 

5$ 

15$: PSTYPE 
RETURN 


ACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 


ACTSMS: MOV PSTYPE,R1 3GET aT a TYPE INTO R1 
ASL R1 3MULTIPLY BY 2 
ADD #MSGTAB,R1 :ADD MESSAGE TABLE OFFSET 
PRINTF #MSGPRM [PRINT MESSAGE PARAMETER MESSAGE 
MOV ——— 


MOV #1,-(SP) 

MOV SP, 

TRAP CSPNTF 

ADD #4,SP 
PRINTF #MSG4,(R1),PSSIZE,PSCPYS PRINT PARAMETERS 

MOV PSCPYS,-(SP) 
PSSIZE,-(SP) 
(R1),=(SP) 


#MSG4,-(SP) 
#4,-(SP) 
P’RO 


CSPNTF 
#12,SP 
CLRB P$NNUF 
RTS PC 


ACTION ROUTINE TO CLEAR THE CURRENT MESSAGE PARAMETERS AND 
RESET THEM TO THE DEFAULT VALUE 


ACTCMS: MOV #ALPHA,PSTYPE 
MOV #512. ,P + 


MOV #1,P$CP ;RESE 
PRINTF #CLRMSG ; E PARADE TERS BESS! MESSAGE 
MOV #1,- 
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010600 MOV SP,RO 

104417 TRAP CSPNTF 

062706 000004 ADD #4,SP 
PRINTF #MSG4,MSGTAB,PSSIZE,PSCPYS PRINT PARAMETERS 

013746 002374 MOV PSCPYS,=-(SP) 


SEQ 148 


000012 
003160 CLEAR NOTNUF FLAG 
TS PC 


107300 000207 


ZACTION ROUTINE TO SET SHOW COUNTERS FLAG 


107302 ACTCNT: on FUNCT #RDCNTS sREAD COUNTERS 
R1 CHECK RESULT 
001492 21$ sBRANCH IF ERROR 
107320 000137 110346 40$ 
sPRINT COUNTER INFO 


107324 : BINHEX #PHYADR,46,4STRBUF ;GET ADDRESS INTO ASCII 
PRINTF #CNTROO, #STRBUF 
012746 002322 #STRBUF ,~(SP) 
062703 #CNTROO, -(SP) 
000002 2,-(SP) 
MOV 0 


ca 


F 
000006 #6, SP 
PRINTF #CNTRO1,UCB12+2 
050162 UCB12+2,=(SP) 
062763 #CNTRO1,-(SP) 
000002 #2,-(SP5 
CSPNTF 
000006 ; _ #6.SP 
CALL BINDEC_ #UCBi2+4 
PRINTF #CNTRO2,#DECSTR 
075200 #DECSTR,=-(SP) 
063032 #CNTRO2,~(SP) 
000002 #2,~(SP5 
SP-RO 
CSPNTF 
000006 #6,SP 
CALL BINDEC_ #UCB12+10 
PRINTF #CNTRO3,#DECSTR 
075200 #DECSTR,-(SP) 
063066 #CNTROS,~(SP) 
000002 #2,-(SP5 


oR 
CSPNTF 
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107506 062706 000006 #6,SP 
PRINTF #CNTRO4,UCB12+14 
013746 050174 UCB12+14,=(SP) 
012746 063133 #CNTRO4 ,=(SP) 
012746 000002 #2,-(SP) 
010600 


SP,RO 
104417 CSPNTF 
062706 000006 #6,SP 
PRINTF #CNTROS,UCB12+16 
013746 050176 UCB12+16,=(SP) 
063210 #CNTROS,=(SP) 
000002 ) 


SEQ 149 


000006 
CALL BINDEC #UCB12+20 
PRINTF #CNTRO6,#DECSTR 
075200 
063260 
000002 


000006 
CALL BINDEC_ #UCB12+24 
PRINTF #CNTRO7,#DECSTR 
075200 
063317 
000002 


000006 
PRINTF #CNTRO8,UCB12+30 
050210 UCB12+30,-(SP) 
063367 #CNTROB,-(SP) 
000002 #2,-(SP) 
SP,RO 


a 


SPN 
000006 #6,SP 

PRINTF #CNTRO9,UCB12+32 
950212 UCB12+32,-(SP) 
063442 #CNTROD, -(SP) 
000002 #2 .=(SP) 

CSPNTF 

000006 D #6,SP 

CALL BINDEC #UCB12+34 

PRINTF #CNTR10,#DECSTR 
075200 #DECSTR,=(SP) 
063513 
000002 


000006 
CALL BINDEC #UCB12+40 
PRINTF #CNTR11,#DECSTR 
107776 075200 #DECSTR,-(SP) 
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7720 110002 012746 063552 MOV #CNTR11,=(SP) 
7721 110006 012746 000002 MOV #2,-(SP) 
7722 110012 010600 MOV SP,RO 
7723 110014 104417 TRAP — CSPNTF 
7724 110016 062706 000006 ADD #6,SP 
7725 110022 CALL BINDEC #UCB12+44 
7726 110034 PRINTF M#CNTR12,#DECSTR 
7727 110034 012746 075200 MOV #DECSTR,-(SP) 
7728 110040 012746 063622 MOV #CNTR12,=(SP) 
7729 110044 012746 000002 MOV #2,-(SP) 
7730 110050 010600 MOV " 
7731 110052 104417 TRAP — CS$PNTF 
7732 110054 062706 000006 ADD #6,SP 
7733 110060 CALL BINDEC. #UCB12+50 
7734 110072 PRINTF M#CNTR13,#DECSTR 
7735 110072 012746 075200 MOV #DECSTR,-(SP) 
7736 110076 012746 063670 MOV #CNTR13,-(SP) 
7737 110102 012746 000002 MOV #2,-(SP) 
7738 110106 010600 MOV SP,RO 
7739. 110110 104417 TRAP — CSPNTF 
7740 110112 062706 000006 ADD #6,SP 
7741 110116 CALL BINDEC #UCB12+54 
7742 110130 PRINTF #CNTR14,MDECSTR 
7743 110130 012746 075200 MOV #DECSTR,-(SP) 
7744 110134 012746 063735 MOV #CNTR14,=(SP) 
7745 110140 012746 000002 MOV #2,-(SP) 
7746 110144 010600 MOV SP,RO 
7747 110146 104417 TRAP  CS$PNTF 
7748 110150 062706 000006 ADD #6,SP 
7749 110154 CALL BINDEC #UCB12+60 
7750 110166 PRINTF M#CNTR15,#DECSTR 
7751 110166 012746 075200 MOV #DECSTR,-(SP) 
7752 110172 012746 063771 MOV #CNTR15,~(SP) 
7753 110176 012746 000002 MOV #2,-(SP) 
7754 110202 010600 MOV SP,RO 
7755 110206 104417 TRAP  CSPNTF 
7756 110206 062706 000006 ADD #6,SP 
7757 (110212 CALL BINDEC #UCB12+64 
7758 110224 PRINTF #CNTR16,#DECSTR 
7759 110224 012746 075200 MOV #DECSTR,-(SP) 
7760 110230 012746 064033 MOV #CNTR16,-(SP) 
7761 110234 012746 000002 MOV #2,-(SP5 
7762 110240 010600 V s 
7763 110242 104417 TRAP CSPNTF 
7764 110244 062706 000006 ADD #6,SP 
7765 110250 PRINTF &#<NTR17,UCB12+70 
7766 110250 013746 050250 MOV UCB12+70,-(SP) 
7767 110254 012746 064107 MOV #CNTR17,~(SP) 
7768 110260 012746 000002 MOV #2,-(SP5 
7769 110264 010600 V SP.RO 
7770 110266 104417 TRAP  CSPNTF 
7771 110270 062706 000006 ADD #6,SP 
7772 110274 PRINTF #CNTR18,UCB12+72 
7773 110274 013746 050252 MOV UCB12+72,=(SP) 
7774 110300 012746 064154 MOV #CNTR18,-(SP) 
7775 110304 012746 000002 MOV #2,-(SP5 
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SEQ 151 
CZUACAO 
CZUACA.P 


010600 MOV SP,RO 
104417 CSPNTF 
062706 000006 #6,SP 
PRINTF #CNTR19,UCB12+74 
013746 050254 UCB12+74,=(SP) 
064221 #CNTR19,=(SP) 
000002 #2,-(SP) 
SP,RO 
CSPNTF 
000006 #6,SP 
000404 BR 50$ 


ERRHRD 31,E€MSG31 
104456 CSERHRD 
000037 


1 
065576 wo EMSG31 
000000 0 


ANA AAA 
- 


105037 003160 
000207 


ee III IO 
Sa et ee ET 


ACTION ROUTINE TO PRINT OUT THE NODE TABLE 


105037 003160 ACTSND: CLRB PSNNUF 

012737 002404 002402 MOV #NODTBL , SLOT sMOVE “me TABLE ADDRESS INTO SLOT 
CALL FULSLT SEE IF TABLE EMPTY 

022737 177777 002402 cMP #-1,SLOT IF YES, DON'T PRINT HEADER 


001437 BEQ 
PRINTF #NTBHDR PRINT NODE TABLE HEADER 
012746 053462 MOV #NTBHDR ,-(SP) 
000001 MOV #1,-(SP) 


MOV SP,RO 
ng CSPNTE 
000004 #4 SP 
: FULSLT LOCATION IN TABLE uITH AN ADDRESS 
Oeelao 177777 002402 MP Fel IF aeTunn END OF TABLE 
BINHEX SLOT ,#6,4STRBUF LSE. PUT ASCH ADDRESS INTO BUFFER 
PRTNOD Pal NODE TABLE ENTRY 
062737 000010 002402 #8. ,SLOT ole INT TO NEXT TABLE ENTRY 
000751 BR 10$ E UNTIL ALL ENTRIES PRINTED 
: : PRINTF #TABEMT ,#NOD 
012746 053701 


#NOD,-(SP) 
053632 #TABEMT ,-(SP) 
000002 #2,-(SP) 
SP,RO 
CSPNTF 
000006 #6,SP 
208: RTS PC 7RETURN 


ooo 
SSF 
RNROOe 


REPPEERESEERE 


WWWDND 2 SONU SS 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


ANMNOOVMANNMONMHLNVONFSOGLOSL 


Soooooo°ooeoo 
alah ab ab ab abraded) 


ACTION ROUTINE TO CLEAR A NODE SPECIFIED BY NODE LOGICAL NAME 
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CZUACAO DEUNA NI EXERCIS = MACY11 30A(1052) 20-JUL=83 " 27 PAGE 153 
CZ2UACA.P11 19=JUL=83 CLI ACTION TABLE AND ROUTINES 


zFROM THE NODE TABLE 


ACTCNL: P$PUSH R2 sSAVE R2 
013702 003154 MOV * tastes ZPUT NODE a NUMBER INTO R2 
R2 3NODE gy ADDRESS = 


R2 Cert - X 8) + MNODTBL 
002404 #NODTBL .R2 ADD OFFSET 
(R2)+ CLEAR ENTRY (8 BYTES) 


005012 
sRESTORE R2 
105037 003160 CLRB PSNNUF 7CLEAR NOTNUF FLAG 
PRINTF #LOGDEL ,.PSNUM PRINT MESSAGE. INDICATING DELETION 
013746 003154 MOV 


-(SP) 
#LOGDEL ,-(SP) 
#2,-(SP) 
SP,RO 
CSPNTF 
#6,SP 


Ss33sss3333s 


oo 
vin 
VN 

aan 


3 


ee ee ek ee ee ee ee ed ed ed ed ed ed ad 
3s 


ek ek ed ed ed od = 228d od 2 ot ss SS 


S558 
MOSM 


RTS PC zRETURN 


ZACTION ROUTINE TC INITIATE A UNA PORT COMMAND 
105037 003160 ACTFCT: CLRB P$NNUF CLEAR NOTNUF FLAG 
CALL FUNCT PSNUM ZCALL FUNCTION ROUTINE WITH FUNCTION CODE 
<A R1 ; CHECK RESULTS 


001404 BE 1$ F OK EXIT 

ERRHRD 30,EMSG30 ; ELSE REPORT ERROR 
104456 TRA CSERHRD 
000036 


WOR 
065531 “WORD — EMSG30 
000000 3 

207 1$: RTS PC 


SETETS 


AHKMVOOAOLNMOS 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


3588 


SACTION ROUTINE TO SAVE NODE TABLE 


ACTSAV: P$PUSH R2,R3 3SAVE_R2 AND R3 
002404 MOV #NODTBL ,R2 Ser Rees rens f = COPY ING 


002530 MOV #SAVTBL RS 
PRINTF #UNSMSG,#SAVED [PRINT ‘TABLE SAVED" — 
054620 #SAVED ,-(SP) 
054561 
000092 


3 


IIISSEES 
RSX OoOfo 


000006 
111002 


be a ss 
a a a od = 


Ssssss 
Nm 
OofNO 
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CZUACAO DEUNA NI EXERCISER — MACY11_30A(1052) ee ie P 27 PAGE 154 
CZUACA.P11 19-JUL=83 17:13 CLI ACTION TABLE AND ROUTINE 


sACTION ROUTINE TO UNSAVE NODE TABLE 


105037 003160 ACTUNS: CLRB PSNNUF CLEAR ‘NOT er FLAG 
P$PUSH R2,R5 7SAVE R2 AND 
121427 000057 CMPB (R4) #57 
001002 BNE 5$ 
111014 JMP QUIT 
002404 : MOV #NODTBL .R3 sSET REGISTERS FOR COPYING 
012702 002530 MOV #SAVTBL ,R2 :R2 = FROM, R3 = T 
PRINTF #UNSMSG,#RESTOR SPRINT ‘TABLE RESTORED" — 
012746 054627 #RESTOR ,-(SP) 
054561 #UNSMSG , = (SP) 
000002 #2,-(SP) 
SP,RO 
CSPNTF 
000006 ADD #6,SP 
000050 say : #TBLLEN,R1 sMOVE TABLE LENGTH TO R1 


(R2)+,(R3)+ MOVE WO 
ais ioe RoR ren 
R2,83 : ELSE, RESTORE COUNTERS 


105037 003160 AS: PShita'F : CLEAR "NOT ENOUGH’ FLAG 
000207 PC 


SEQ 153 


— YH MY I I HI YH HH SS — 


ACTION TO CLEAR SUMMARY TABLE 


105037 003160 ACTCSU: hy ow gl ENOUGH" COUNTER 


R 
012701 000132 MOV #STBLEN,R1 7MOVE TABLE LENGTH TO R1 
002656 MO #STATBL,R2 ;MOVE SUMMARY wee ADDRESS TO R2 
5$: (R2)+ CLEAR FIRST WO 
R1 :SEE IF FINISHED. 


Sa5 
RORWO 


RRR 


001375 
012746 053706 


BNE 5$ NO, DO MORE 
PRINTF #TABCLR,#SUMM ; ELSE, PRINT ‘TABLE so MESSAGE 


#SUMM,-(SP) 
054514 HOV #TABCLR, -(SP) 
000002 OV £2.-(SP ps 


Ss 

TRAP CSPNTF 

062706 000006 ADD #6,SP 
P$POP R2 ; AND RESTORE R2 

000207 RTS PC 


RRAA 
Wuyi 
MANWNOO 


me a ts os ds ss 
a Yo SS YS  — — - 
de Dd ds ss Ss ws = 


ooo 


onNN 
OOne 


ACTION ROUTINE TO CHECK FOR PASS DEFAULT VALUE 


ACTDFT: 
121427 000040 1$: (R4) ,#40 2 SEE IF SPACES 
2$ : IF NO, CONT. 
R4 : ELSE, POINT TO NEXT CHAR 
BR 1$ AND CHECK AGAIN 
121427 000000 : (R4) ,#0 SEE IF DEFAULT VALUE 


===9090 
BwOGnn 
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SEQ 154 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 155 
CZUACA.P11 19=JUL-83 17:13 CLI ACTION TABLE AND ROUTINES 
7944 111120 001007 BNE 10$ : IF NO, BR 
7945 111122 012763 000030 000002 MOV #30,2(R3) : IF YES, POINT R3 TO SKIP CHECK PASS COUNT 
7946 111130 012737 000001 003154 MOV #1,PSNUM SSET DEFAULT TO 1 
7947 111136 000403 BR S RETURN 
7948 111140 012763 000004 000002 10$: ## MOV #4,2(R3) :POINT R3 TO CHECK FOR PASS COUNT 
7949 111146 000207 15$: RTS PC 
r3ay 
7932 SACTION ROUTINE TO READ A FILE FROM EXTERNAL MEDIA ONTO THE NODE TABLE 
7954 
7955 111150 ACTUSF : 
7956 111150 P$PUSH R2 ZSAVE R2 
7957 111152 005002 CLR R2 SINITIALIZE R2 TO NODE TYPE ‘TARGET’ 
7958 111156 . OPEN  CBOADR [OPEN FILE, NAME=ASCIZ STRING 
7959 111154 013700 002366 MOV CBOADR,RO 
7960 111160 104434 TRAP CSOPEN 
7961 111162 BCOMPLETE 1$ ;RETURN IF SUCCESSFUL 
7962 111162 103413 BCS 1$ 
7963 111164 PRINTF #OPNERR,CBOADR : ELSE PRINT "OPEN ERROR 
7964 111164 013746 002366 MOV CBOADR,-(SP) 
7965 111170 012746 112110 MOV #OPNERR, = (SP) 
7966 111174 012746 000002 MOV #2,-(SP) 
7967 111200 010600 V ‘ 
7968 111202 104417 TRAP CSPNTF 
7969 111204 062706 000006 ADD #6,SP 
7970 111210 CLOSE : CLOSE FILE 
7971 111210 104435 TRAP  C$CLOS 
7972 111212 1$: CALL = RDLIN :READ A LINE AT A TIME 
7973 111220 005737 112104 TST BAD [SEE IF AN ERROR DURING READ 
7974 111224 001064 BNE 25$ : BR ON ERROR TO LEAVE 
7975 111226 005737 112106 iST EOFF SSEE IF EOF BEFORE PROCESS 
7976 111232 001471 Bia 10$ ‘IF VALID, PR 
7977 111234 PRINTF #EOFFND : ELSE SAY "END OF FILE* AND LEAVE 
7978 111234 012746 112223 MOV #EOFFND,=(SP) 
7979 111240 012746 000001 MOV #1,-(SP5 
7980 111244 010600 MOV P.RO 
7981 111246 104417 TRAP  CSPNTF 
7982 111250 062706 000004 ADD #4,SP 
7983 111254 000450 BR 25$ 
7984 111256 10$: PRINTF #PLINE,#FILLIN :PRINT LINE READ FROM FILE 
7985 111256 012746 111560 MOV #FILLIN,=(SP) 
7986 111262 012746 112172 MOV #PLINE ,-(SP) 
7987 111266 012746 000002 MOV #2,-(SP) 
7988 111272 010600 MOV SP,RO 
7989 111274 104417 TRAP  CSPNTF 
7990 111276 062706 000006 ADD #6,SP 
7991 111302 CALL  EDPACK #FILLIN, #ADRBUF #6 :PUT ADDRESS INTO BINARY 
7992 111324 P$POP RI iCHECK RESULTS 
7993 111326 001411 BEQ 12$ : IF OK, BR 
7994 111330 PRINTF #CADERR : ELSE PRINT ERROR MESSAGE 
7995 111330 012746 053306 MOV #CADERR, =(SP) 
7996 111334 012746 000001 MOV #1,-(SP) 
7997 111340 010600 MOV SP,RO 
7998 111342 104417 TRAP CSPNTF 
7999 111344 062706 000004 4DD #4,SP 
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AGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 156 
CLI ACTION TABLE AND ROUTINES 


SEQ 155 
CZUACAO DEU 
CZUACA.P1 


8 25$ 3 AND yl 
12$: R2,NODTY SET UP NODE TYPE 
COMB ‘STtH TYPE FOR NEXT TIME 
000376 #376,R2 


ENTRND sENTER IN NODE TABLE 
R1 7GET RESULTS 
1$ ;READ MORE ADDRESS 
: R2 RESTORE R2 
003160 CLRB PSNNUF sCLEAR ‘NOT ENOUGH’ FLAG 
PRINTF #UNSMSG,#RESTOR PRINT "TALBE RESTORED’ MESSAGE 
054627 MOV #RESTOR,-(SP) 
054561 #UNSMSG,=-(SP) 
000002 #2,-(SP) 
SP,RO 
CSPNTF 
062706 000006 #6,SP 
RETURN 


NAG 
viviw 


ee ee ee ee ed ad ad ad ed —2 

ee et ee et a et ek ed ed ed ed ad ad 

GU = sooo NNO 
SarneSaneo 


et ek a kk ed ak ed dd 
SOFNOSLOFS 


-SBTTL READ LINE OF OPENED FILE 


THIS ROUTINE GETS BYTES FROM AN OPENED FILE UNTIL A CR IS ENCOUNTERED 
“EOF’* AND ‘BAD*' FLAGS ARE SET IF END-OF-FILE OR ERRORS ARE ENCOUNTERED 


NOTE: ASSUMING A ASCII TEXT FILE IS BEING READ, FOR EXAMPLE: 
AA~00~03~00-01~AB<CR><LF > 


AA~-00-03-00-01-AB<CR><LF> 


WHAT YOU SEE READ BYTE-BY-BYTE IS: 

"A. .~AB<CR><LF >A. . ~AB<CR><LF>. .<0><0><0>.....77? 
SO I MADE ASSUMPTION THAT SINCE SEE *‘0-PADDING'’ AFTER LAST CHAR TO 
END~OF“FILEBLOCK, ANY CHARACTER THAT IS NOT SPACE OR GREATER®’ OR A 
pag THEN I°LL TAKE THAT AS END-OF-FILE(TEXT), SET EOF-FLAG 


INPUTS: 
FILLIN BUFFER TO HOLD LINE OF BYTES READ FROM OPENED FILE 
(CR NOT INCLUDED, O-BYTE TERMINATED) 
ee aa 


IF wrtenes ERROR 7 READING A BYTE FROM FILE 

EOFF IF NON-ZERO, END OF FILE WAS ENCOUNTERED 

FILLIN ASCIZ. STRING THAT WAS READ AS CHAR=CR=LF STRING 
(CR=LF REMOVED) 


012702 : MOV MFILLIN,R2 sPOINT R2 nN A LINE BUFFER 
005037 CLR BAD ZCLEAR FLAG 


005037 CLR _«EOFF 
:  GETBYT = (R2) ;GO GET A BYTE FROM INPUT FILE 
104426 TRAP C$GETB 
110012 MOVB RO, (R2) 
BCOMPLETE 2$ ;BR IF READ-BYTE SUCESSFUL 
103414 ; BCS S$ 
: PRINTF #RDERR ; ELSE PRINT "READ-ERROR 
012746 112144 MOV  —- #RDERR, ~( SP) 


Py 
° 
° 
° 
e 
. 
o 
. 
e 
e 
a 
. 
o 
. 
° 
° 
e 
. 
° 
. 
e 
. 
° 
co 
e 
a 
° 
e 
e 
e 
. 
o 
° 
e 
. 
° 
° 
. 
oe 
a 
o 
. 
e 
. 
eo 


SHSMNOAOONMANM 
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SEQ 156 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 157 
CZUACA.P11 19=JUL“83 17:13 READ LINE OF OPENED FILE 
8056 111460 012746 000001 MOV #1,-(SP) 
8057 111464 010600 MOV P 
8058 111466 104417 TRAP CSPNTF 
8059 111470 062706 000004 ADD #4,SP 
8060 111474 012737 177777 112104 MOV #-1,BAD ; SET BAD-TRY FLAG AND LEAVE 
eres 111502 000416 BR 5$ 
8063 111504 122712 000015 2$: CMPB #15, (R2) 31S THE CHARACTER A <CR> 
8064 111510 001756 BEQ ; BR IF YES (GO BACK TO GET <LF>) 
8065 111512 122712 000012 CMPB #12,(R2) 31S THE CHARACTER A <LF> 
8066 111516 001410 BEQ 5$ ; BR IF YES (TERMINATE AND LEAVE) 
8067 111520 122712 000040 CMPB #40, (R2) z1S IT A “EOF’’ (END-OF-FILE(TEXT)) 
8068 3; (EOF=ANY NON=-CHAR>37 EXCEPT CR,LF) 
8069 111524 101002 BHI 6$ ; BR IF YES 
8070 111526 005202 INC Re 3; IF NO, LEAVE CHAR IN BUFFER 
eal 111530 000746 BR 1$ 3; AND GO GET MORE CHARS 
8073 111532 012737 177777 112106 6$: MOV #=-1 ,EOFF zs1F YES, TERMINATE INPUT BUFF 
8074 ; AND SET EOF-FLAG 
8075 111540 105012 5$: CLRB (R2) 
ere 111542 RETURN 
8078 111544 000014 FILENM: .BLKB- 12. sBUFFER FOR FILE NAME 
8079 111560 000204 FILLIN: .BLK 132. sBUFFER FOR SINGLE LINE READ FROM FILE 
8080 111764 000120 MATCH: .BLKB- 80. ;BUFFER FOR WORD TO MATCH FROM FILE 
8081 112104 000000 BAD: eWORD 0 ZERROR/NOT-FOUND FLAG WORD 
oat 112106 000000 EOFF: -WORD 0 sEND-OF-FILE FLAG (<>0 = EOF) 
80. 112110 047045 040445 052477 OPNERR: .ASCIZ /%N%ZA?UNABLE TO OPEN ‘*ZT%A‘''?/ 
8085 112116 040516 046102 020105 
8086 112124 047524 047440 042520 
8087 112132 020116 022442 022524 
80. 112140 021101 000077 
8089 112144 047045 040445 043077 RDERR: .ASCIZ /%N%ZA?FILE READ ERROR?/ 
8090 112152 046111 020105 042522 
8091 112160 042101 042440 051122 
8092 112166 051117 000077 
8092 112172 047045 040445 044506 PLINE: .ASCIZ /%NZAFILE LINE WAS: %N%T2N/ 
8094 112200 042514 046040 047111 
8095 112206 020105 040527 035123 
80 112214 047045 052045 047045 
8097 112222 000 ; 
8098 112223 045 022516 042501 EOFFND: .ASCIZ /%NZAEND-OF-FILE FOUND, FILE READ/ 
8099 112230 042116 047455 026506 
8100 112236 044506 042514 043040 
8101 112244 052517 042116 020054 
8102 112252 044506 042514 051040 
8103 112260 040505 000104 
8104 
8105 gree 
B10? ; SELMSG OPERATOR SELECTED MESSAGE STORAGE 
8108 ° THIS ROUTINE WILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
3150 3 LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSLBF. 
8111 3 INPUTS = P1 = ADPRESS OF OPERATOR SELECTED MESSAGE IN 
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CZUACAO_DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) ie em 13:27 PAGE 158 
CZUACA.P11 19=JUL=83 17:13 READ LINE OF OPENED F 


SEQ 157 


co 
_ 
= 
im 


INPUT STRING 
T OUTPUTS - E 


T OUTPUTS - THE BUFFER AT OPSLBF WILL CONTAIN THE nytt 
OPERATOR sseaeten INPUT STRING FOLLOWED B 


A NULL CHA 
SUBORDINATE ROUTINES = NONE 
CALLING PROCEEDURE - CALL SELMSG P1_ ;INPUT ADDRESS OF ASCII STRING 
REGISTER USAGE - R1 CONTAINS ADDRESS OF INPUT STRING 

R2 CONTAINS ADDRESS OF OUTPUT STRING 


G09 C9 Co Co 09 C9 Co C9 CO 

SS oS OS 
MNT ea ee 
NO OONO NEw 
BeBe Se ee Se Se Se tee 


: P$POP R1 sPUT ADDRESS OF OPR. SEL ASCII STRING INTO R1 
003570 MOV #OPSLBF ,R2 ; ADDRESS OF OUTPUT BUFFER INTO R2 
3 sion CHARACTER COUNTER 
(R1) CHECK FOR END OF STRING 
10$ 260 10 10$ IF END 
(R1)+,(R2)+ sELSE, MOVE BYTE TO OUTPUT BUFFER 
R3 ZCOUNT NUMBER OF CHARACTERS IN INPUT BUFFER 
112274 5$ :GO_DO MORE CHARACTERS 
000000 : #0, (R2) ;PUT ZERO AT END OF OUTPUT BUFFER 
003314 R3,.MSG6C zSTORE NUMBER OF CHARACTERS FOR USE IN BUF. BUILDING 


3 
ro} NNN 
OfOoOsT Onn 


WW 
No 


ENTRND ENTER NODE IN TABLE 
THIS ROUTINE ENTERS A NODE INTO THE NODE TABLE 


INPUTS NONE 
EXPLICIT OUTPUTS P1 = ZERO IF SUCCESSFUL, -1 IF TABLE FULL 
IMPLICIT OUTPUTS THE ADDRESS CONTAINED IN ADRBUF WILL BE 
ADDED TO THE NODE TABLE IN THE FIRST 
cease efi WITH THE -_ TYPE CONTAINED 
IN NODTY (TARGET OR ASSIST) 
SUBORDINATE ROUTINES FINDSL = FIND EMPTY SLOT IN TABLE 
CALLING PROCEEDURE CALL_ENTRND 
P$POP P1 OUTPUT GOOD/BAD RESULT 


. 
° 
. 
e 
. 
° 
© 
° 
= 
e 
7 
e 
. 
e 
. 
s 
7 
° 
a 
a 
. 
e 
. 
e 
. 
e 
7 
° 
» 
a 
e 


: CALL FINDSL zFIND AVAILABLE SLOT IN TABLE 
P$POP R1 :CHECK IF TABLE re 
001403 BEQ 5$ IF NOT FULL BR TO 5$ 
ELSE PUT FULL INDICATION ON STACK 


2 TU 
000006 : 7SET INCR. COUNTER TO 6 (BYTES) 
002402 LOT.R MOV pret OF AVAILABLE a TO R1 
002314 #ADRBUF ,R2 ;MOV A DDRESS OF NODE ADDRESS TO R2 

(R2)+,(R1)+ ;MOV BYTE OF ADDRESS 

R ;DECR. COUNTER 

10$ ;CONTINUE UNTIL 6 BYTES TRANSFERED 

R1 SET gee TO NODE TYPE LOCATION 
002400 MOVB NODTY,(R1) ;MOVE NODE TYPE INTO TABLE 

#0 PUT ADDRESS "ADDED INDICATION ON STACK 

RETURN ;RETURN 


WR SO DONOUSWN—o”O 
IN\WW 
WW 
mor 


Co 00 Cd Co Cd Cod Cod Co Cd Cd Cd Cd Co Co 09 Od Cd Co Co 
ae ee VIVA MIU UI SS 


ADO 

oe ek ed td td td td 
ek ed de td 
MoPoNoNoNoNoNoNoNoNononononofry 


ANVALSNVOSOMANVOS 


NOu 
NN 
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CZUACAO_DEUNA NI enent 1553 A eemeates MACY11 30A(1052) Ss + Ma 13:27 PAGE 159 
CZUACA.P11 19=JUL=83 17:13 READ LINE OF OPENED F 


aed 


FINDSL FIND EMPTY SLOT IN NODE TABLE 


INPUTS NONE 

EXPLICIT OUTPUTS NONE 

IMPLICIT OUTPUTS THE ADDRESS OF THE FIRST AVAILABLE SLOT IN THE 
NODE TABLE WILL BE LOCATED IN SLOT. THE 
PARAMETER STACK WILL CONTAIN =-1 IF THE NODE 
TABLE IS FULL AND 0 IF AN EMPTY SLOT WAS FOUND 

SUBORDINATE ROUTINES 


NON 
CALLING PROCEDURE CALL _FINDSL 
P$POP P1 371 IF FULL/ O IF SLOT AVAILABLE 


~ F Se Se Se Se Se Se Se Se Be Se Be Ge Se Se 


012702 002404 #NODTBL ,R2 sMOVE ADDRESS OF NODE TABLE TO R2 
0 #0, (R2) 7SEE IF SLOT EMPTY 


00000 
IF YES, 


20 $ 
000010 ZELSE NOVE POINTER TO NEXT ENTRY LOC. 
177777 R 7SEE IF AT END OF TABLE 
001370 BNE 10$ IF NOT, CONTINUE LOOKING 
PRINTF #TABFUL,#NOD ELSE, PRINT TABLE FULL —- 
012746 053701 


053560 
000002 


SRR 


0 00 09 09 Co Co C0 C0 CO 
a tS 


062706 000006 ADD #6,SP 
PS$PUSH PUT TABLE FULL INDICATION ON STACK 
000404 BR RET 


30$ cE 
010237 002402 ; . ;MOVE ADDRESS OF EMPTY LOC. INTO SLOT 
#0 :PUT LOC. FOUND INDICATION ON STACK 


SRR RR RRR RRS 
VYRWES SWWVVY 
ARORNVOROLSEN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ek ak ek ek et ed ek ek ed dd od ed 
PSG SSG Seah oh 4 


FULSLT FULL SLOT ROUTINE 


THIS ROUTINE FINDS A LOCATION IN THE TABLE WHERE A NODE PHYSICAL 
ADDRESS EXISTS. IT IS USED WHEN PRINTING OUT THE NODE TABLE. 


INPUTS NONE 

EXPLICIT OUTPUTS NONE 

IMPLICIT OUTPUTS THE LOCATION SLOT WILL CONTAIN THE PHYSICAL 
ADDRESS OF A NODE TABLE ENTRY. SLOT WILL 
ed WHEN POINTING TO THE END OF THE 


SUBORDINATE ROUTINES NONE 
CALLING PROCEDURE CALL FULSLT 


— Be Se Be Be Be Be Se Be Se Be Be Be Be Be Be Be 


013701 002402 SLOT,R1 sMOVE st LOCATION TO R1 
#0,(R1) 3CHECK IF EMPTY 


000000 
$ sIF_YES, BR 20$ 
022711 177777 #-1,(R1) ;SEE IF END OF NODE TABLE 
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SEQ 159 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) i ie 13:27 PAGE 160 


CZUACA.P11—- 19=JUL-83 17:13 READ LINE OF OPENED FIL 
8224 112506 001403 BEQ 15$ z1F YES, BR 15$ 
8225 112510 010137 002402 MOV R1,SLOT ELSE PUT EMPTY LOC. ADDRESS INTO SLOT 
8226 112514 000407 BR RETURN 
8227 112516 012737 177777 002402 15$: MOV #-1,SLOT 3PUT -1 INTO SLOT TO SHOW END OF TABLE 
8228 112524 00040 BR 0$ TUR 
8229 112526 062701 000010 20$: ADD #8. .R1 INCR. POINTER TO NEXT LOCATION 
8230 112532 000760 BR 10$ :CHECK NEXT LOC. 
8231 112536 30$: RETURN SRETUR 
8232 
8233 yoo 
8234 ; CMPADR COMPAIR TWO ADDRESSES 
Boas : THIS ROUTINE COMPAIRS TWO SIX BYTE STRINGS 
8238 : INPUTS P1 = ADDRESS OF FIRST STRING 
8239 : P2 = ADDRESS OF SECOND STRING 
esas : OUTPUTS P3 = 0 = COMPARISON/=1 = NO COMPARISON 
8242 F CALLING PROCEDURE CALL CMPADR P1,P2 
8243 : P$POP 3 
8244 s 
S546 sank 
8247 112536 CMPADR: P$POP R2,R3 :PUT ADDRESS OF STRING TO BE COMPARED IN R2 AND R3 
8248 112542 022223 CMP (R2)+, (R3)+ [DO FIRST TWO BYTES COMPARE 
8249 112544 001006 BNE : IF NO, EXIT 
8250 112546 022223 CMP (R2)+, (R3)+ [DO SECOND TWO BYTES COMPARE 
8251 112550 001004 BNE : IF NO, EX 
8252 112552 021213 CMP (R2), (R3) ‘DO LAST TWO BYTES COMPARE 
8253 112554 001002 BNE 10$ : IF NO, 
8254 112556 005001 CLR R1 :PUT COMPARISON OK INDICATOR IN R1 
8255 112560 000402 BR 15$ 
8256 112562 012701 177777 10$: MOV #=1,R1 zPUT NO COMPARISON INDICATOR IN R1 
8257 112566 15$: RETURN R1 
8258 
8259 yor 
8260 ; PRTNOD PRINT NODE TABLE 
8262 : INPUTS NONE 
8263 : EXPLICIT OUTPUTS NONE 
8264 : IMPLICIT OUTPUTS ONE ENTRY IN THE NODE TABLE WILL BE PRINTED 
8265 : SUBORDINATE ROUTINES 
8266 3 CALLING SEQUENCE CALL PRTNOD 
8268 112572 PRTNOD: PRINTF #NODADR,#STRBUF :PRINT NODE ADDRESS 
8269 112572 012746 002322 MOV #STRBUF ,~(SP) 
8270 112576 012746 053430 MOV #NODADR *=-(SP) 
8271 112602 012746 000002 MOV (SPS 
8272 112606 010600 MOV Sm 
8273 112610 104417 TRAP _ CSPNTF 
8274 112612 062706 000006 ADD ‘ 
8275 112616 013702 002402 MOV SLOT,R2 :MOVE SLOT ADDRESS INTO R2 
8276 112622 162702 002404 SUB #NODTBL ,R2 ; CALCULATE NODE LOGICAL NAME 
8277 112626 006202 ASR R2 ‘USING: LOG. = 
8278 112630 006202 ASR R2 «Ue OT-ANOD TABS /8—" 
8279 112632 006202 ASR R2 
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SEQ 160 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL~B3 13:27 PAGE 161 
CZUACA.P11 —- 19=JUL-83 17:13 READ LINE OF OPENED FIL 
8280 112634 PRINTF #LOGNAM,R2 :PRINT LOGICAL NAME 
8281 112634 010246 MCV R2,-(SP) 
8282 112636 012746 053440 MOV #LOGNAM, -(SP) 
8283 112642 012746 000002 MOV #2,-(SP) 
8284 112646 010600 MOV SP,RO 
8285 112650 104417 TRAP  CSPNTF 
8286 112652 062706 000006 ADD #6,SP 
8287 112656 013702 002402 MOV SLOT,R2 :SEE IF TARGET OR ASSIST NODE 
8288 112662 062702 000007 ADD #7,R2 : INFO CONTAINED IN 7TH BYTE OF ENTRY 
8289 112 111203 MOVB (R2),R3 VE INTO R3 
8290 112670 020327 000001 CMP R3,HCASIST iSEE IF ASSIST NODE 
8291 112674 001404 BEQ 1 : IF YES, BR 10$ 
8292 112676 012737 062613 002312 MOV WARGTY7, KEYWD2 + ELSE MOVE ‘TARGET’ INTO KEYWD2 
8293 112704 000403 BR 20$ 3 CONT NUE 
8294 112706 012737 062603 002312 10$: MOV #ARGTY6, KEYWD2 MOVE "ASSIST*® INTO KEYWD2 
8295 112714 20$: PRINTF #NODTYP,KEYWD2 ‘PRINT NODE TYPE 
8296 112714 013746 002312 MOV KEYWD2,-(SP) 
8297 112720 012746 053453 MOV #NODTYP, -(SP) 
8298 112724 012746 000002 MOV #2,-(SP) 
8299 112730 010600 MOV SP,RO 
8300 112732 104417 TRAP CSPNTF 
8301 112734 062706 000006 ADD #6,SP 
8302 112740 RETURN ; RETURN 
8303 112742 EXIT TST 
8304 112742 104432 TRAP CSEXIT 
8305 112744 000002 .WORD 110015-. 
8307 ; SEXNSEREEXIESEEE3REEEE23 2222232 222228220220 22020002210 E EINER ILLES ELEN EES EEE 
pis ay tie —— THAT IS USED ONLY 
8310 i sana tind i inlitl a hE aeenneereemebritrernenreeeennatinemeimeneanael 
8312 ; UUREREEEEEEXEX222 000 2222222222222 3222222 2EEEEEEEEE2E 2002 SE EELELEEEEEEII ALLIES 
8313 ; INSERT MESSAGES 1 THAT ARE USED ON 
8315 £ uUeUKR NEA SRYSEEL ELA LE LELLELE ELLE LULL LEELA ELE ELE L LE LEE LLL LEE LE TE 
8317 EVEN 
8318 
8319 112746 ENDTST 
8320 112746 L10015: 
8321 112746 104401 TRAP  CSETST 
8323 5s UAAALAALAAAAAAAAAL ALT ALAALAATAAALTALAALALALL LAAT ALT LLALALLALLALALLLLLLLLLLLLLILL% 


; BEGIN THE REMAINING TESTS ON NEW PAGES. 
8325 eee eee eee AeA AA AAA ALAA AERA AAA A AAA AAA A A222 
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oo XERC ih DIAGNOSTIC MACY11 30A(1052) ow 13:27 PAGE 162 


' SEQ 161 
UL=83 13 READ LINE OF OPENED FIL 


CZUACAO DEUNA NI 
CZUACA.P11 19- 


-SBTTL HARDWARE PARAMETER CODING SECTION 
: THE HARDWARE PARAMETER CODING SECTION tgs pr rr? 


MACROS ARE NOT EXECUTED AS NE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. 


BGNHRD 
000015 «WORD L10016-LSHARD/2 
LSHARD:: 


TT ca tare tnt tal ae ae 
; HARDWARE PARAMETER INTERPRETIVE CODE HERE. THIS C 


Is sTSED ey THE SUPERVISOR TO INTERROGATE THE "OPERA ATOR POR 
DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
IN ‘watts aE oe THE go ries ge gl OO THE MACROS 


USFD ARE ‘'G 
 yxnnnxxks 1EXERAETEPUS ELLE UES SERES LNG ELERLELESS NES SEELETEOTLELEETEELE LTT T Tee 


GPRMA ASKCSR,0,0,160000,177776, YES ; GET CSR ADDRESS 
000031 - WORD $ 
113004 
160000 
177776 


001031 


WORD  _TSHI 
GPRMA ASKVEC,2,0,0,776.YES : GET VECTOR ADDRESS 
WORD T$COD 


E 
113037 -WORD ASKVEC 


000000 -WORD TSLOLIM 
000776 TSHILIM 


- WORD 
GPRMD ASKPRI,4,0,340,0,7,YES ; GET PRIORITY LEVEL 
WORD TSCODE 
-WOR ASKPRI 
-WORD 340 
. TSLOLIM 
000007 -WORD TSHILIM 
ENDHRD 


002032 


-EVEN 
L10016: 


UIMINGERT ESSAGES THAT ARE USED OMY 


: DURING ARE P R CODING SECTION. 
au erARERAUSHL TELUS ERYAEAEEOS ESLER ELER LES USEE LER LER ELLE LER LR ELLE LLL ELER ELLE LEE 


044440 ASKCSR: .ASCIZ /WHAT IS THE PCSRO ADDRESS?/ 


051505 
020124 ASKVEC: .ASCIZ /WHAT IS THE VECTOR ADDRESS?/ 





20-JUL-83 13:27 PAGE 163 


: .ASCIZ /WHAT IS THE PRIORITY LEVEL?/ 


2 
So 
— 
— 
7 
as 
” 
o 
2 
-_ 
a 
oO 
—) 
ax 
ei 
— 
= 
i. 4 
=< 
a 
ua 
<= 
< 
= 
a 
=< 
<—t 
xz 


MACY11 30A(1052) 


ovwwovwor. vO 
-—-VNOON--- oS 
NN Orne NO 
NN ONMNK Ww 
Twn wns 


One-Moowvwevw 


AT TIMOTATOUM 
Coooooooeoo 


see —* 


—-OVUMR-O- OO 


Wn AWS — 
oooo OCooo- 


I EXERCI 
9-JUL-83 17:1 


TFVUCOMo own 
wn ~OOertw 
oO ocrenee 

PARMAR MIM MRI) 


UNA NI EXER 
19=JUL= 


RaBRRRee 


ZUACAO DE 
CZUACA.P11 


c 
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R DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 164 
7:13 SOFTWARE PARAMETER CODING SECTION 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


CZUACAO DEUNA NI EXERCISE 
CZUACA.P11 19=JUL-83 1 


T THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
: ; MACROS ARE USE 2 THE 


S. 
MACROS ALLOW THE © cacaasaecs TO ESTABLISH” COMMUNI CATIONS 
; WITH THE OPERATOR 


BGNSFT 
000000 «WORD L10017=L$SOFT/2 
LSSOFT:: 


ee TTT TTT TTT TTT TTT TTT TTT TTT T TTT TTT TTT TTT TTT eee TTT Tee eee eT TTT TTT t) 
: INSERT SOFTWARE PARAMETER INTERPRETIVE CODING HERE. THIS CODE 
: IS _USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FO 
: SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOFTWARE 
; TABLE. THIS SECTION IS OPTIONAL. 
eee eee eee ee AAA ATTA AAA AAAS A A AAAI AAA A AA A22% 
~EVEN 
113132 ENDSFT 
-EVEN 


113132 L10017: 


end and od cd ad end nd ead eed 
SOONOUSWN— 


84 
84 
84 
84 
84 
84 
84 
84 
84 
842 


eee eee eee eee eee eee TAA A AAA AAA A AAA A AAA AAAA ATTA E I Tk 
: INSERT MESSAGES THAT ARE USED ONLY 

: DURING THE SOFTWARE PARAMETER CODING SECTION. 

eee eee eee eee ATTA AAA AAA A AAA AAA AAA AAAA ATTA A A A222 


S$PATCH:: 
000010 -BLKw 10 


jAMISTALS' IS A-PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS. 


DIAGNO 
THE SIZE FIT YOUR OWN NCES. 
PTTTTiTiTTiTtttttttTtTtittTtitititititttite 


LASTAD 
000000 WORD 0 


000000 “WORD 0 
LSLAST:: 
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SEQ 164 

CZUACAO_DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 165 
CZUACA.P11 19=JUL=83 17:13 SOFTWARE PARAMETER CODING SECTION 

Bact 

Bee eeeeme yao ye ai Be id 

8444 : THIS SECTION IS OPTIONAL AND SHOULD BE REMOVED IF IT IS NOT BEING 

Braz : USED. CHANGE THE POINTER MACRO ARGUMENT TO REFLECT THE REMOVAL. 

8447 ; THE P-TABLES ARE DELIMITED BY THE eee at AND ‘‘ENDSETUP*’ MACROS. 

8448 ; THE ‘BGNSETUP’’ MACRO HAS ONE ARGUMENT WHICH IS THE NUMBER OF 

8449 ; P-TABLE eatees ayo ey i. og atl BY THE byt i 

8450 : “EN ** MACROS. NEITHER OF THESE MACROS REQUIRE AN ARGUMENT 

ot) :  LUNUUUEUEUEELSEXEEA USES TEUNTLERESRERESTEPELERLLESUGES I ATELELEREE EA US AELLLELELEE ITIL 

8453 H BGNSETUP 1 

8454 : 6BGNPTAB 

8455 : -WORD 0 

8456 : ENDPTAB 

8457 : ENDSETUP 

8458 


8459 000001 «END 
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SEQ 165 

CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL=83 13:27 PAGE 167 
CZUACA.P11 19-JUL=83 17:1 CROSS REFERENCE TASLE == USER SYMBOLS 
ACTALP 103450 6407 69614 
ACTBLD 101166 6396 65294 
ACTCMS 107176 6422 76024 
ACTCNL 110540 6424 78358 
ACTCNT 107302 6423 762 
ACTCPY 103742 6416 70734 
ACTCSU 111026 6427 791748 
ACTCTT 103520 6412 70024 
ACTDFT 111102 6429 79384 
ACTDIR 104772 6428 72528 
ACTEXT 103350 6402 692 
ACTFCT 110624 6425 78604 
ACTHLP 100620 6394 64514 
ACTIDT 102264 6401 67384 
ACTMSG 103242 68964 7041 7063 7085 
ACTNAD 104020 6417 70934 
ACTNAL 104156 6418 71304 
ACTNOD 100656 6395 64704 
ACTNUF 100610 6403 64384 
ACTNUL 100616 6393 64444 
ACTONE 103460 6408 69494 
ACTOPR 103530 6413 70104 
ACTPAT 107022 6398 75544 
ACTRNA 104356 6419 71774 
ACTRNL 105420 6420 73394 
ACTRUN 104236 6397 71524 
ACTSAV 110660 6399 78754 
ACTSMS 107104 6421 75754 
ACTSND 110364 6406 6626 78024 
ACTSR4 103442 6405 69534 
ACTSUM 101710 5830 6400 66364 
ACTSZE 103664 6415 70514 
ACTTYP 103656 6414 70414 
ACTUNS 110724 6426 78914 
ACTUSF 111150 6430 79554 
aCTXAD 103360 6404 69354 
ACTZRO 103470 6409 69784 
ACTOAL 103510 6411 69944 
ACTIAL 103500 6410 69864 
ADR = 000020 G 11994 
ADRBUF 002314 15674 5117 6475 6485 6501 6743 6754 6883 6936 7097 7992 8160 
ADRDEL 054340 26984 7117 

062151 22 
ALPHA = 00 G 12824 6114 6961 7602 
ANCHOR 070042 40454 4097 4214 4244 4251 4322 4331 4340 4457 & 4532 4546 4558 


ARGTY1 062536 32828 
ARGTY2 062544 32834 
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CZUACAO DEUNA N MACY11 30A(1052)_ 20-JUL-83 13:27 PAGE 
CZUACA.P11 1 : CROSS REFERENCE TABLE -- USER SYMBOLS 


ARGTY3 


7400 7431 
7402 7433 


17728 
18154 
112104 
050526 G 
075014 G 
BINHEX 072672 


BITO 000001 G 
BITOO = 000001 G 


000002 G 
000004 G 
= 000010 G 


w= 
VIiNan 
oono— 
= 


oww 
aera 
S50 
won 
COWS — | NVWEUA NO 
Saeoe 


N@OOOON 
weAVVQVSVlLVeaaVesy 
WWE SESE SWWWWWWWW 


kk ek kd td td a td ot 
NVWOLLLS LOCOCO OO—-@®—a-~y 
WOOWN—| OWSUAAOWONMLSMMN 


MEWN-O 


me me ae ee a ed ad et oe = od = oe or os st es a 
= 
Wo 


ek kk ek ed dd ed = i = LW IL 


AARBAA NES 


00005 G 
100000 G 





CZUACAO DEUNA NI ore es 
CZUACA.P11 19=JUL=83 1 


BUFLEN 050566 G 
BUILD = 000003 


052527 
pagers 


00000 
000010 
00004 
CLISTR= 000012 


CLITRE 051070 


CMDBUF 002200 


L 13 


MACY11 30A(1052)_ 20-JUL-83 13:27 PAGE 169 
CROSS REFERENCE TABLE == USER SYMBOLS 


4562 4911* 4987" 5046* 5116* 7513 


6940 


6502 39 65 
6936 033 


7252 


6376 6926 
5789* 5794* 6356* 


5961* 6022+ 
6134 


7520 


6134* 
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CZUACAO DEUNA NI EXERCISE MACY11 30A(1052)_ 20-JUL-83_ 13:27 PAGE 170 
1 CROSS REFERENCE TABLE -- USER SYMBOLS 


CZUACA.P11 19=JUL=83 
062444 


6899 
6512 


6485 6576 8 §=©6743 6754 7100 82474 
5013*  5068* 7532 


4799 4808 4812 


4532 


5220* 


7327* = 7356* 7486* 


2459 


7362 7367 
CTYPE = 000025 


SEQ 168 
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SEQ 169 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL=83 13: bi PAGE 171 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE == USER SYMBOLS 
CUNSAV= 000041 12764 2382 
CUNSVF= 00004 12804 2498 
CZEROS= 000020 12594 2451 
= 00005 6284 6309 
CS$AUTO= 000061 6284 6179 
C$BRK = 000022 6284 6564 6780 7500 
CSBSEG= 000004 6284 
C$BSUB= 000002 6284 
CSCEFG= 000045 6284 
CSCLCK= 000062 6284 5946 5955 
CSCLEA= 000012 6284 6236 
C$CLOS= 000035 6284 7971 
C$CLP1= 000006 6284 
CSCVEC= 000036 6284 
C$DCLN= 000044 6284 3780 6140 
C$DODU= 00005 6284 
CS$DRPT= 000024 62 
c$bU = 000053 6284 6272 
CSEDIT= 000003 6284 1010 
CSERDF= 000055 6284 4127 4133 4140 4147 4191 4217 4325 4334 4343 4568 4574 4580 
4651 4935 4941 5018 5024 5073 5079 5132 6119 6870 68 
CSERHR= 000056 en" sant 6203 6552 6622 7206 7226 7306 7315 7391 7412 7445 7475 
CSERRO= 000060 6284 
CSERSF= 000054 6284 
= 00005 6284 
CSESCA= 000010 6284 
CS$ESEG= 000005 6284 
CSESUB= 000003 6284 
C$ETST= 000001 6284 8321 
CSEXIT= 000032 6284 6142 6219 6379 8304 
C$GETB= 000026 6284 8050 
C$GETW= 000027 6284 
C$GMAN= 000043 6284 6344 
C$GPHR= 000042 6284 5974 
= 000030 6284 
C$GPRI= 000040 6284 
C$INIT= 000011 6284 6159 
C$INLP= 000020 6284 
C$MANI= 000050 6284 
C$MEM = 000031 6284 5939 
C$MSG = 000025 6284 3783 3808 3828 
CSOPEN= 000034 6284 7960 
CS$PNTB= 000014 6284 6599 7220 7235 7287 7299 7325 7406 7421 7437 7452 7469 7484 
CS$PNTF= 000017 6284 4642 5363 5599 5643 5801 5969 6364 6373 6457 6481 6491 6497 
6646 6659 6665 6677 6683 6694 6703 6749 6774 6798 6817 6825 6833 
6841 6849 6857 6865 6907 6916 6943 7027 7061 7083 7109 7120 7141 
7271 7352 7373 7379 7582 7591 7609 7618 7640 7647 7655 7663 7670 
7677 768 7693 7700 7707 7715 7723 7731 7739 7747 7755 7763 7770 
7777 7784 7811 7825 7852 7883 7903 7929 7968 7981 7989 7998 8014 
8058 8195 8273 8285 8300 
C$PNTS= 000016 eae tts pt 6055 6074 6083 6090 6097 6105 6112 6519 6533 6539 
CSPNTX= 000015 6284 3777 3796 3803 3817 3824 5273 5286 7524 
C$Q10 = 000377 6284 


C$RDBU= 000007 6284 


CZUACAO DEUNA NI EXERCISE 
19=JUL=83 


CZUACA.P11 
CSREFG= 000047 


G 
G 
G 
G 
G 
G 
0G 
G 
G 
G 
G 
2G 
G 
G 
G 
6G 
G 
G 
G 


TCMP 074406 
DECSTR 075200 


DEF 002000 
DEPADR 047752 


oo 
QAAQAG Aa 


So oO oo 
AGAQAGAGA AAG 


064450 


io 
17: 


AGNOSTIC 


5915 
1009 
5849 


6025 
5987 


Rone ew 
MOOOVUIT 


MACY11_30A(1052) 


B 14 
20-JUL-83_ 13:27 PAGE 172 


CROSS REFERENCE TABLE -- USER SYMBOLS 


5920 


6689 


4913* 


5926 5932 


6699 7651 7659 7681 7689 7711 


4914% 4988%  4989* 4990*  5047*  5048* 


7561 
4409 4417 
4411* 

7992 


7719 


5049* 


7727 


5118* 


7735 


5119* 


SEQ 170 


7743 


5120* 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83_ 13: Hi PAGE 173 
CZUACA.P11 19=JUL-83 17:13 CROSS REFERENCE TABLE <= USER SYMBOLS 


“$020 5075 5134 


80824 


4422* 


067460 
067516 


4220 4328 4346 4571 4577 =—s_- 4583 
5076 5082 6122 6873 6880 


DAG AAAAAAACACd 


FAFCT1= 000020 G 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL=83 13:27 PAGE 174 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE -- USER SYMBOLS 
FAFCT2= 000030 G 15274 5000* 5059 
FAFCT3= 000040 G 15294 5004*  5063* 
FAFCT4= 000050 G 15314 5008* 
poses 051026 G 23254 
KIP= 000016 G 15244 4995*  5054* 

FATFLG 050512 G 22474 4122 4144% 4393* 

I = 000400 G 13034 4390 
FILENM 111544 80784 
FILLIN 111560 7985 7992 8046 80794 
FINDSL 112400 6582 8154 81844 
FRAM = 02 G 14804 
FRDADR= 0 G 14994 
FREMEM 047662 G 18844 5941% 5942 
FRESIZ 047660 ¢ 18834 5940* 5941 
FULAST (62207 32334 
FULSLT 112470 7194 7199 7244 7264 7278 7345 7358 7805 7814 82204 
FUNCT 071372 G 4322 4340 44844 6028 6040 6063 6199 6549 6619 6760 6885 7629 
FUNTAB 047676 G 18984 4486 
FSAU_ = 000015 6284 6282 6308 
FSAUTO= 000020 6284 6170 6178 

GN = 000040 6284 3770 3786 3811 3986 5818 5834 5858 5885 6142 6170 6188 

6245 6257 6282 6294 6334 6379 8304 8320 8339 8405 
FSCLEA= 00 6284 6188 6235 
FSDU_ = 000016 6284 6245 6271 
FSEND = 000041 6284 3784 3809 3829 4013 5832 5850 6142 6160 6180 6219 6237 
6273 6292 6310 6334 6379 8304 8320 8322 8370 8420 

FSHARD= 6284 8339 8368 
F$HW = 000015 6284 1102 1112 
FSINIT= 000006 6284 5885 6158 
FSJMP = 000050 6284 5832 6142 6219 6255 6292 6379 8304 
F$MOD = 000000 6284 
F$MSG = 000011 6284 3770 3782 3786 3807 3811 3827 
FSPROT= 000021 6284 5858 5865 
FSPWR = 000017 6284 
FSRPT = 000012 6284 5818 5848 
FS$SEG = 00000 6284 
FSSOFT= 000005 6284 8405 8418 
FSSRV = 00001 6284 3986 4011 
F$SUB = 000002 6284 
F$SW = 000014 6284 1124 1130 
FSTEST= 000001 6284 6335 8320 
GETCL 10027 63414 6366 6375 6377 
GETCOM 074304 5166 51714 
GETFNT= 000002 G 13124 4496 

TPCB= 000001 G 13114 4214 
GETRNX 074262 G 4251 4632 4633 4649 51634 6213 §572 6788 7510 
GETXNX 074274 G 4244 4546 4558 4559 4933 5016 5071 5130 51684 
G$CNTO= 000200 6284 
GSDELM= 000372 6284 
G$DISP= 000003 6284 
GSEXCP= 000400 6284 
G$HILI= 000002 6284 
G$LOLI= 000001 6284 
G = 000000 62 
GSOFFS= 000400 6284 6347 8351 8356 8361 
GSOFSI= 000376 6284 8351 8356 8361 


7862 


6219 


6255 


SEQ 172 
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CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL=83 13:27 PAGE 175 
CZUACA.P11 19=JUL-835 17:1 CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 173 


GSPRMA= 000001 6284 8351 8356 
GSPRMD= 000002 6284 6347 8361 
GSPRML= 000000 6284 
GSRADA= 000140 6284 6347 
GS$RADB= 000000 6284 
= 00004 6284 
GSRADL= 000120 6284 
G$RADO= 000020 6284 8351 8356 8361 
GSXFER= 000004 6284 
GSYES = 000010 6284 8351 8356 8361 
HDMSG1 055342 27918 6034 
HDMSG2 055413 27984 6046 
HDMSG3S 055466 28 6052 
HDMSG4 055522 28114 6071 
HDMSGS 055577 281 6080 
H 055650 28264 87 
HDMSG7 055710 28324 60 
HDMSG8 055751 28384 6102 
HDMSG9 056014 2844 
HEADER= 000016 G 1397# = 5126* 5127* 5128* 
ELP = 000001 6274 628 963 1051 60 1073 1078 1080 1092 1110 1128 1134 1141 
12444 2357 2359 2500 3830 3856 3863 3869 3876 3882 9 3895 3903 
3911 3916 5820 5835 5 5887 = «6745 6172 6190 6222 6247 6258 6284 
6295 6314 6324 6329 6336 8307 8323s: 83542 8371 8408 8422 
HELP1 056060 1602 28514 
HELP10 057101 1611 9434 
HELP11 057172 1612 29534 
HELP12 057270 1613 = 29644 
HELP13 057375 1614 29768 
HELP14 057474 1615 29878 
HELP15 057573 1616 9984 
HELP16 057676 1617 30104 
HELP17 057765 1618 30204 
HELP18 06 1619 30324 
HELP19 060140 1620 30394 
HELP2 056161 1603 862 
HELP20 0602 1621 30514 
HELP21 060321 1622 30594 
HELP22 0604 1623 C684 
HELP23 060505 1624 30794 
HELP24 0606 1625 0904 
HELP25 060735 1626 31054 
HELP26 061021 1627-31144 
HELP27 061125 1628 1264 
HELP28 061227 1629 = 331384 
HELP29 061 1630 31524 
HELPS 056254 1604 28724 
HELP30 061416 1631 31594 
HELP4 056325 1605 28794 
HELPS 056376 1606 28864 
HELP6 056476 1607 28974 
HELP? 0566 1608 29104 
HELP8 056722 1609 9234 
HELP9 057012 1610 29334 
HEXBIN 072552 4701 47898 
HEXC 072650 48414 4860 4861 


F 14 


SEQ 174 

CZUACAO DEUNA NI EXERCISER gnousrec MACY11 30A(1052) 20-JUL-83 13:27 PAGE 176 
CZUACA.P11 19-JUL-83 17:1 CROSS REFERENCE TABLE -- USER SYMBOLS 
HLPEND 003260 16324 6459 
HLPTAB 003164 16024 6452 
aN 072526 47834 47902 4793* 4818 
HOE = 100000 G 12104 
HXFORM 072414 4694 7264 
HXN 072412 47258 4727* 4731 
IBE = 010000 G 12074 
Ic = 040000 G 13304 
IDENT = 000010 12514 2439 
1DU = 000040 G 12004 
IER = 020000 G 12084 
ILADMS 053051 25748 6488 6746 
ILADM1 053135 25834 6494 
ILLADR 002650 15834 6485 6743 
INICLN 100130 5912 5971 5978 6123 61394 
INIEXI 10013 5936 6138 61414 
INIT 07 59094 
INIT1 076620 5910 59134 
INTE = 000100 G 13054 4204 4454 
INTR = 000200 G 13044 
ISR = 000100 G 12014 
IXE = 004000 G 12064 
ISAU = 000041 6284 62824 63104 
ISAUTO= 000041 6284 6170% 61804 
ISCLN = 000041 6284 61884 6219 62374 
1$dU = 000041 6284 62454 62734 
ISHRD = 000041 83394 83704 
ISINIT= 000041 6284 58854 6142 61604 
ISMOD = 000041 6284 
ISMSG = 000041 6284 37704 37844 37864 38094 38114 38294 
ISPROT= 000040 6284 58584 
ISPTAB= 000041 6284 
ISPWR = 000041 6284 
ISRPT = 000041 6284 58184 58504 
ISSEG = 000041 6284 6334 
ISSETU= 6284 
ISSFT = 000041 84054 84204 
ISSRV = 000041 6284 39864 40134 
I$SUB = 000041 6284 6334 
ISTST = 000041 6284 63344 6379 8304 83204 83224 
JSJMP = 000167 6284 5832 6255 6292 
KEYWD1 002310 1565#@ 6512* 6899* 7154 7158 7162 7177* 7252% 7289 7339* 7554* 
KEYWD2 002312 15664 6504* 6507* 6515 7516* 7535* 75392 7544 8292%  8294% 8296 
LCAR = 004000 G 14514 
LCLKEN= 000100 G 12234 5951 

= 010000 G 14524 
LDADR1= 000022 G 15174 4922% 4923% 4924% 
LDADR2= 000032 G 1519# 46926% 4927* 4928* 4929 
LDFCT1= 000020 G 15164 4921* 
LDFCT2= 000030 G 15184  4925* 
LDMEM = 000021 G 13874 
LORESP 052574 25434 
LDSKIP= 000016 G 15154 4920* 
LENGTH 062342 32514 7516 
LGERMS 067117 37174 7521 
LOCDST 072206 46864 4694 4701 


G 14 


CZUACAO_DEUNA NI Crees | — MACY11 30A(1052)_ 20-JUL-83_ 13: iio PAGE 177 
CZUACA.P11 19-JUL-83 17:1 CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 175 


LOE = 040000 G 
LOGDEL 054426 
LOGNAM 05344 
OPO TR 000010 
5 4869" 4863 


gece "ee oe 


ESReeRcessey 
SRSUVSSEVE SVG 


6 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 


L$SPTP 002024 G 





H 14 


SEQ 176 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83_ 13:27 PAGE 178 
CZUACA.P11 —- 19JUL-83 17:13 CROSS REFERENCE TABLE == USER SYMBOLS 
L$STA 002030 G 9920 
Sw 002200 G 1124 1125 
LSTEST 002114 G 10444 
LSTIML 002014 G 980# 
LSUNIT 002012 G 9788 
10000 002176 110211128 
L10001 002200 1124 11304 
L10002 067514 37828 
L10003 067602 38074 
L10004 067654 38278 
L10005 070022 40114 
10006 076570 5833 58484 
L10010 100136 6143 61584 
L10011 100140 61784 
L10012 100256 6220 62354 
L10013 100264 6256 62714 
110014 100272 6293 63084 
L10015 112746 6380 8305 83204 
L10016 113004 8339 8369" 
110017 113132 8405 84194 
MATCH 111764 080# 
MESPAT 062054 32158 
MESPA1 062125 3222" 7296 
E = 010000 G 14438 4550 
MSGAD 003316 G 16524 5213 5219 
MSGCNT 003300 G 1 5217 
MSGPRM 054661 27334 ©6904 7579 
MSGTAB 003202 1633@ 3790 6902 7293 7577 7614 
MSGTYO 062372 1633 3258" 
MSGTY1 062400 1634 32598 
MSGTY2 062405 1635 3260" 
MSGTY3 062413 1636 32624 
MSGTY4 062420 1637 326 
MSGTYS 062425 1638 32644 
MSGTY6 062433 1639  3266# 
003300 16444 
MSGOO 003334 G 1644 1653 16614 
MSGO1 003464 G 1645 1654 16778 
SGO2 003465 G 1646 1655 16798 
MSGO3 003466 G 1647 1656S s«16818 
SG04 003467 G 1648 1657 16834 
MSGOS 003470 G 1649 1658 +43: 16854 
MSG] 054711 27408 6530 
MSGIC 003302 1645¢ 
MSG11 055024 27534 6536 
MSG12 055137 $542 
MSG2_ 055177 27724 ©6516 
MSG2C 003304 6464 
055235 
MSG3C 003306 16474 
055276 27848 6913 7588 7615 
MSG4C 003310 16484 
MSG5SC 003312 16494 
MSG6C 003314 1650#  8133* 
NCHN = 020000 G 14878 


NEW 100112 5935 61344 


I 14 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83 13:27 PAGE 179 
CZUACA.P11 19=JUL-83 17:13 CROSS REFERENCE TABLE -- USER SYMBOLS 
NIHLT = 000006 G 13454 
NIRCNT 050516 G 22494 4320" 4403" 4618 4633* 4647* 6207 
NIUNI = 000007 G 13464 
CLK 062622 3295 5966 
NOCMPR 054160 2679# 7106 
701 26484 6595 7137 7267 7348 7821 8191 
NODADR 053430 26174 8270 
= 002 12454 2395 
002404 1579# 5997 6560 6574 7098 7132 7192 7262 7275 7343 7355 7803 
7876 7896 8184 27 
NODTY 002400 1577# §=6305* 6508*  8001* 8165 
NODTYP 053453 26214 8297 
51070 
1 051074 23574 
NOD1O 051154 644 
NOD100 051720 24304 
NOD101 051722 24314 
NOD102 051724 24354 
NOD103 051730 24364 
104 051734 24378 
NOD105 051740 24384 
051744 24394 
NOD107 051746 &G 
NOD11 051156 23654 
NOD110 051752 24444 
NOD111 051756 24454 
NOD112 051772 24464 
NOD113 051776 24474 
NOD114 052012 24484 
NOD115 052016 24498 
NOD116 052032 24504 
NOD117 052036 24514 
NOD12 051170 23664 
NOD120 052052 24524 
NOD121 052056 24534 
NOD122 052072 24544 
NOD123 052076 24554 
NOD124 052112 24564 
NOD125 052116 24574 
NOD126 052132 24584 
NOD127 052136 24598 
NOD 051174 23674 
NOD130 052142 24604 
NOD131 052146 24614 
NOD132 052152 24624 
NOD133 052166 24634 
NOD134 052172 24644 
NOD135 052176 24654 
052202 4 
NOD137 052220 24678 
14 051200 23684 
NOD140 052224 24684 
NOD141 052230 24698 
NOD142 052234 24704 
NOD143 052240 24744 
NOD144 052244 24758 


7840 


SEQ 177 


J 14 


SEQ 178 

CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 180 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE -- USER SYMBOLS 
NOD145 052264 24768 
NOD146 052270 24778 
NOD147 052302 24788 
NOD15 051212 23694 
NOD150 052306 24798 
NOD151 052324 24804 
NOD152 052330 24814 
NOD153 052346 24824 
NOD154 052352 24 
NOD155 052366 24844 
NOD156 052372 24854 
NOD157 052376 24864 
NOD16 051216 23704 
NOD160 052400 
NOD161 052404 24918 
NOD1 052410 24928 
NOD163 052412 4 

052416 24978 
NOD165 052422 4 
NOD 052424 
NOD17 051234 23714 

051100 23584 
NOD20 051236 23724 
NOD21 051250 23734 
NOD22 051252 23748 
NOD23 051254 23754 
NOD24 051256 23768 
NOD25 051272 23774 
NOD26 051276 23784 
NOD27 051316 23794 
NOD3 051102 23594 

051322 23804 
NOD31 51340 23814 
NOD32 051344 23824 
NOD33 051362 23834 

34 051366 23844 
NOD35 051402 23854 
NOD36 051404 23864 
NOD37 051424 23874 
NOD4 051116 23604 
NOD4O0 8051430 23884 
NOD41 051432 23894 
NOD42 051434 239 
NOD4$ 051440 23944 
NOD44 051444 23954 
NOD45 051450 23974 
NOD46 051454 23984 
NOD47 051456 24024 
NODS 051120 23614 
NOD5O 051462 24034 
NODS1 051476 24044 
NODS2 051502 24054 
NODS3 051520 24064 
NOD5S4 051524 24074 
NOD55 051544 24084 
56 §©051550 24094 


sive SEQ 179 


CZUACAO_ DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL=83 13:27 PAGE 181 
CZUACA.P11 19-JUL=83 17:13 CROSS REFERENCE TABLE -- USER SYMBOLS 
NODS? 051554 24104 
NOD6 051134 23624 
NOD60 051556 24148 
NOD61 051562 24154 
NOD62 051576 24168 
NOD63 051602 24178 
NOD64 051606 24184 
NOD65 051612 24198 
NOD66 051624 24204 
NOD67 051630 24214 
NOD7 051140 23634 
NOD70 051634 24224 
NOD71 051640 24234 
NOD72 051644 24244 
NOD73 051650 24254 
NOD74 051654 24268 
NOD75 051672 24278 
NOD76 051676 24284 
NOD77 051714 24298 
NGRESP 062302 32454 7544 
NOTNUF= 000012 12534 2361 2365 2367 2376 2378 2380 2386 
NO.NTR= 000006 G 14954 2018 2023 4240 4247 
NTBHDR 053462 26234 7808 
= 000 12434 
NULSTR 053362 26104 5798 
051074 23564 
N100$ 51456 2369 24014 
N101$ 051462 24024 
N102$ 051502 24044 
N104$ 051524 2405 24064 
N106$ 051550 2407 24084 
N110$ 051554 2404 2406 2408 24094 
N12$ 051102 2357 23584 
N120$ 051556 2377 24134 
Ni21$ 051562 24144 
Ni22$ 051602 24164 
N123$ 051630 2418 24208 
N124$ 051644 2419 2421 24234 
N126$ 051650 24244 
1 051654 241 24254 
N132$ 051676 2426 2427H 
N134$ 051720 2428 24298 
N135$ 051722 2420 2423 2425 2427 2429 24304 
N14$ 051120 2359 23604 
N140$ 051724 79 24344 
N141$ 051730 24354 
N142$ 51734 24364 
N143$ 051744 24384 
N16$ 051140 2361 23624 
N160$ 051746 2381 24424 2461 2465 2469 
N161$ 051752 24434 
N162$ 052016 447 24484 
N163$ 052036 2449 24504 
N164$ 052056 2451 24524 
N165$ 0520 2453 24544 
N166$ 05211 2455 24564 


CZUACAO DEUNA NI EXERCIS 
19=JUL=83 


CZUACA.P11 
N167$ 052136 
N168$ 052146 
N170$ 052152 
N175$ 052202 
N178$ 052234 
N18$ 051156 
N180$ 052240 
N181$ 052244 
N182$ 052270 
N183$ 052306 
N184$ 052330 
N185$ 5234 
N186$ 052352 
N190$ 052376 
N20$ 051174 
N200$ 052400 
N201$ 052404 
N210$ 052412 
N212$ 052416 
N215$ 052424 
N22$ 051216 
N23$ 051236 
N24$ 051252 
N25$ 051256 
N26$ 051276 
N28$ 051322 
N29$ 1344 
N30$ 051366 
N31$ 051404 
N32$ 051430 
N80$ 051434 
N81$ 051440 
N82$ 051444 
Nn90$ 051450 
n95$ 051454 
OFLO = 010000 G 
OK 061661 
OKFU 062013 
OKRE 061702 
OKTR 061746 
ONE = 004000 G 
ONEALT= 000003 G 
ONES = 000001 G 
OPNERR 112110 
OPRSEL= 000006 G 
OPSLBF 003570 

= 100000 G 
OSAPTS= 000000 
o$aAuU = 000000 


0$G 
O$POIN= 000001 


R DIAGNOSTIC 
7:13 
2457 24584 
2448 2450 
2445 24614 
2462 24654 
2444 24694 
2363 3644 
2366 24734 
24748 
2475 24764 
2477 24784 
2479 24804 
2476 478 
24824 
24854 
2365 3664 
2387 24894 
24904 
2383 24954 
24964 
2497 24984 
2368 23694 
2370 23714 
2372 23734 
2367 23754 
2376 23774 
2378 23794 
2380 23814 
2382 23834 
2384 23854 
2386 23874 
2468 2470 
2362 23924 
23934 
23944 

395 23964 
23974 

14794 

1934 7322 
32094 7232 
31964 7418 
32024 7449 
14424 4550 
12854 6986 
12834 6969 
7965 80844 
12884 5794 
1659 16984 
14464 4525 
6284 992 
6284 1024 
6284 9624 
6284 984 
6284 1026 
6284 1034 
6284 988 
6284 9624 


MACY11_ 30A(1052) 


L 14 
20-JUL-83 13:27 PAGE 182 


CROSS REFERENCE TABLE =~ USER SYMBOLS 


2452 


2480 


2397 
2481 


7481 


1050 


2454 2456 2458 24604 

24814 

2409 2417 2422 2437 2446 2459 2463 2464 2466 
2483 2484 2485 2491 

7018 

4541 4622 4902 4978 5037 5113 


2467 


SEQ 180 


M 14 


SEQ 181 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83_ 13:27 PAGE 183 
CZUACA.P11 — 19=JUL-83 17:13 CROSS REFERENCE TABLE =~ USER SYMBOLS 
O$SETU= 000000 628 978 8437 
PART 075214 G 5405* 5410" 5416* 5417 54474 
PASABT 061526 3176" ©7186 «7376 
ATCH 050572 G 22714 
PATTRN 062262 32428 
PCBBO 047666 G 18918 4210 4489 
PCBB2 047670 G 18924 4348 6032 6042 
PC 047672 G 12938 
PCBB6 047674 & 18948 
PCCALL 050564 G 22684 3773 «40408 
PCEFLG 050514 G 22484 4120 4137% 4399s 
EI = 040000 G 1297" 4396 4419 
PCLKCT= 001600 G 12254 5961 
PCLKEN= 000111 G 12268 5963 
PCMSG 066714 G 3692" 377% 
PCSRO 047632 G 18684 4181 4374 4382 4455" 5989* 5990 
PCSROC 047642 G 18738 4225" 4378s 
PCSR1 047634 G 18694 5990* 5991* 5992 
PCSRIC 047644 G 18744 4226% 43798 
PCSR2 047636 G 1870# 5992e 5993 599% 
PCSR2C 047646 G 18754 4227e —4380* 
3 047640 G 18714 5994" 5995* 
PCSR3C 047650 G 18764 4228« 4381* 
CTO = 000200 G 13334 
PDMD = 000010 G 13184 ©4532 
PFNOP = 000000 G 13648 
PHYADR 047762 G 19414 4349 4922 4923 4924 4926 4927 4928 5005 5006 5007 5009 5010 
5011 5060 5061 5062 5064 5065 5066 6754 7635 
PLINE 112172 7986 8093# 
PNOP = 000003 G 13134 
PNT = 001000 G 12044 ~~ 
PREGI4 070024 4036# 4097 4214 4244 4251 «4322, 43314340 4457 4496) 4532 4546 = 4558 
4559 4632 4633 «4649 4694 «= 4701S 4932 4933. 5015s: 5016 = S070 «= 5077_~—Ss«S5 
5334 6027 6028 6032 6040 6063 6199 6210 6213 75 6485 6501 = 6510 
6549 6568 6572 6576 6582 6619 6654 6688 6698 6743 6754 6760 6 
6765 6784 6788 6812 6883 6885 6936 7020 7100 7157 7161 7165 7167 
7181 7194 7199 7202 7203 7211 7212 7223 7240 7244 7256 72 7278 
7281 7302 7303 7312 7330 7345 7358 7387 7388 7397 7398 7% 7424 
7425 7428 7429 7440 7455 7456 7460 7461 7472 7504 7510 7532 
7561 7629 7635 7650 7658 7680 7688 7710 7718 7726 7734 7742 7750 
7758 7805 7814 7817 7818 7862 7973 7992 8005 8154 
PRI = 002000 G 12054 
PRIMLD= 000001 G 13408 
PRIOO = 000000 G 11934 6024 6136 
PRIO1 = 000040 G 11928 
PRI02 = 000100 G 11918 
PRIOS = 000140 G 11908 
PRI04 = 000200 G 11894 
PRIOS = 000240 G 1108 11884 
PRI06 = 000300 G 11874 
PRIC7 = 000340 G 1003. 1186# 6216 
PROTOT= 000014 G 14014 4626 4918* 4994x 5053* 5124* 
ROTOO 050544 G 22604 4627 4918 4994 5053 
PROTO2 050546 G 22614 4629 = 5124 
PRTNOD 112572 7818 82684 
PSACT 003150 1593# 5516  6355* 


N 14 


SEQ 182 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_20-JUL-83_ 13:27 PAGE 184 
CZUACA.P11  19=JUL-83 17:13 CROSS REFERENCE TABLE == USER SYMBOLS 
PSAERR 003162 1599# 6738 6937 70% 
PSBUFA 003144 1591# 5469  6353* 
PSCNT 003152 15948 5619" 5626 5691* 5698* 5703 
PSCPYS 002374 1575@ 6116" 6910 7077* 7195 7276 7356 7585  7604* 7612 
PSEXIT 075342 5474 5509 5534 5540 
P$GDBD 003161 19984 5952" 5938 5548 S601* 5645" 5769 S785" 6341" 6358 64727012 701Ks 
® 
PSMERR 003163 1600# 5803" 7010* 7030 
PSNNUF 003160 1597# 6342% 6367 6438 6470% 6636" 6741" 6918" 6945 7093 7143* 7152% 7593s 
7620* 7794" 7802" 7846* 7860* 7891* 7910% 7917* 8008s 
PSNUM 003154 15958 5614" 5617 5619  5620* 5622* 5626% 5628% 5634" 7051 7053 7055 7073 
7075 «7077~«= 7153S 7836 = 7B4B = 7862 «= 7946s 
PSPASS 002376 1576# 7153" 7167 ©7169 
P$RADX 003156 15964 5573" 5576* 5584* 5597 5624 5632 
P$SIZE 002372 15748 4905 5040 5211 6115* 6911 7055* 7530 7532 7586 7603" 7613 
PSTREE 003146 15928 5470 6354* 
PSTRV 075216 54684 6357 
P$TRS 075226 54718 5482 5502 5507 
PSTYPE 002370 15734 3788 5209 6114* 6900 6961" 6969% 6978 6986" 6994" 7002" 7018* 7291 
7559x7565" 7566 7569" 7575 7602* 
111014 7895  7909# 
RASIST 050774 G 23128 
RBFCNT 050524 G 22524 4415* 
RCBI = 002000 G 13014 4413 4419 
RCVBUF 050540 G 22584 4645* 
RCVERR 050536 G 32574 © 4637* 
RDCNTS= 000012 G 13764 7629 
RDDEFA= 000002 G 13658 
RDERR 11214 8055 80894 
RDLIN 1114 7973 80404 
RDMODE= 000014 G 13794 
RDMULA= 000006 G 13708 
RDPHYA= 000004 G 13674 4340 
RDRNGS= 000010 G 13734 
= 000016 G 13824 6040 
RDSYS = 000022 G 13894 
READY = 000002 G 13414 
RECAST 062243 32398 
RECERR 052631 25484 4639 
RECEVE 071776 G 4616# 6210 6568 6784 7504 
REQID 050712 G 22774 5125 
RESET = 000000 G 13394 
RESTOR 054627 27314 7899 8010 
RESTRT 100046 5923 5929 6117S: 6 124 
RETRY 062316 32474 7539 
RETRYS 050534 G 22564 4523" 4554* 4555 6768 7494 
RMTC = 000010 G 13354 
RPKLEN= 002756 G 14944 1764 1770 1776 1782 1788 1794 1807 1813 1819 1825 1831 1837 
1852 1853 «1854. =Ss« 1855. =Ss«1856—Ss«1857 
RRGCUR 003760 G 17514 4237* 4248 4251 4620 4632 4649 
RRGLST 003770 G 17558 


* 4633 6213 6570 6572 6786 «©6788 7508 7510 


RRGOOS 033742 G 





CZUACAO DEUNA N 
CZUACA.P11 1 


STP 
STRBUF 
STRBUT 


S 
SUMMS1 


So 

So 

Own 
AAQAAAG 


5 
002402 


000006 G 
072320 


So 
~NMr 
AQAAG 


001000 
002322 
002344 

4 


07 
067215 


soo 0 


MONS wwnN a0 
& 


oo 


MACY11 30A(1052) 


7409 


4417 


7897 
4419 


1755 


7440 


7192s 
7281 

7818+ 

4917* 


8 15 


20-JUL-83_ 13:27 PAGE 185 
CROSS REFERENCE TABLE -- USER SYMBOLS 


18024 


7472 


4991* 


7920 


1996 2020 4237 8=64238 

74948 

7196* 7197 7199 7202 7240 7242* 7244 

7330* 7343* 7345 7355* 7358 7361 7490* 
8199 220 = 8225* 398227 8275 8287 

4992x 4993" 5050* 5051* 5052* 5121* 5122+ 
6501 6514 6654 6655 6812 6813 7211 

7432 7460 7464 7635 7636 7817 = 8269 


SEQ 183 


7262+ 
7803* 


5123* 





CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
CZUACA.P11 19-JUL=83 17:13 
SUMMS2 067236 37314 6662 
SUMMS3S 067322 37404 6674 
SUMMS4 067351 37448 6680 
SUMMSS 067434 6691 
SUMMS6 067452 37564 6700 
SVCGBL= 000000 6284 965 
996 998 
1024 1026 
1056 1064 
5858 5885 
SVCINS= 000001 6284 966 
983 985 
1009 1010 
1033 1035 
1088 10 
3793 3794 
3814 3815 
4127, 4128 
4148 4149 
4327 =. 4328 
4571 4574 
4639 4640 
4941 4942 
5074 5075 
5269 5270 
5360 5361 
5643 5644 
5919 5920 
5947 5949 
5975 5977 
6021 6024 
6049 6050 
6081 6082 
6098 6102 
6121 6122 
6159 = 6179 
6272 6292 
6362 6363 
6456 6457 
6494 6495 
6531 6532 
6546 6552 
6609 6610 
6645 6646 
6666 6671 
6684 6689 
6704 6746 
6796 86797 
6824 6825 
6841 6842 
6858 6861 
6879 6880 
6916 6917 
7059 7060 
7110 7117 
7187 7188 


MACY11_ 30A(1052) 


RSW 
Ww on OoO 

Vin COW 
Soucnurnn 


C 15 


20-JUL"83 13:27 PAGE 186 
CROSS REFERENCE TABLE -- USER SYMBOLS 


988 
1016 


SEQ 184 


CZUACAO DEUNA NI EXERCIS 
CZ2UACA.P11 


SVCSUB= 
SVC TAG= 


000001 
000001 


ST= 000001 


SVCT 
SSLSYM= 


TIMERS 
TIMER1 


010000 
050506 G 


050550 G 
050552 G 


003714 


19=JUL=83 


ER DIAGNOSTIC 
17:13 
7218 7219 
7267 7268 
7295 7296 
7318 7322 
7371 7372 
7399 7400 
7418 7419 
7438 7443 
7465 7466 
7484 7485 
7582 7583 
7609 7610 
7639 7640 
7655 7656 
7671 7673 
7689 7690 
7704 7705 
7721 7722 
7738 7739 
7755 7756 
7771 7773 
7789 7790 
7825 7826 
7880 7881 
7927 7928 
7971 7978 
7996 7997 
8055 8056 
8271 8272 
8299 8300 
8358 8359 
6284 
6284 1112 
6352 8320 
6284 6334 
6284 11134 
6345 6352 
22404 5346 
22394 5345 
22384 5344 
22374 5342 
22364 5343 
22414 5350 
27164 7138 
26414 6643 
26344 5360 
22998 
14964 1579 
22624 5258+ 
609  6615* 
22634 6557* 
22644 6558* 
22654 6559* 
5402 5403 
17164 4004 
17144 3998 


MACY11 30A(1052) 


4000* 


dD 15 


20-JUL-83 13:27 PAGE 187 
CROSS REFERENCE TABLE -- USER SYMBOLS 


7342+ 
6756* 


7496 


5289 


6791* 


58494 


5323* 


61594 


5354* 


61794 


6059 


6065 


6556* 


SEQ 185 


6591* 


E 15 


CZUACAO DEUNA NI het eee MACY11 30A(1052)_ 20-JUL-83 13:27 PAGE 188 
CZUACA.P11 19=JUL=83 1 CROSS REFERENCE TABLE -- USER SYMBOLS 


003716 4003* 4534 
* 60 6124* 


3996 
4006 


5537 5547 5568 5636 5660 5681 


5647 5662 5683 5712 


12994 
TSARGC= 000002 9674 84 6 77 37924 


TSCODE= 002032 
TSERRN= 000036 


TSEXCP= 000000 63474 55 5 
TSFLAG= 000040 5834 62924 
000000 84 


TSGMAN= 6347 
TSHILI= 000007 6351 82514 83614 





F 15 


SEQ 187 
CZUACAO DEUNA NI ery 3 AGNOSTIC MACY11 30A(1052) 20-JUL-83 13:27 PAGE 189 
CZUACA.P11 19=JUL=83 1 CROSS REFERENCE TABLE == USER SYMBOLS 
TSLAST= 000001 rE 84374 
TSLOLI= 000000 63474 6350 83514 8353 83564 8358 83614 8364 
TSLSYM= 010000 $5 1113 1131 3783 3808 3828 = 4012 5849 6159 6179 6236 6272 6309 
8321 8370 8420 
TSLTNO= 000001 84408 
TSNEST= 177777 6284 1102 11124 11244 11304 37704 37824 37864 38074 38114 38274 3986# 40114 
58184 58484 58584 58654 58854 61584 6170# 61784 61884 62354 62454 62714 62824 
63084 6335 83204 83394 684 84054 84184 
TSNSO = 000005 11024 1112 1124@ 1130 3770# 3782 37864 3807 38114 3827 39864 4011 58184 
8 8584 5865 58854 6158 6170 6178 61884 6235 6245# 6271 62824 6308 
63354 6520 83394 8368 84054 8418 
TSPTNU= 000000 284 
TSSAVL= 177777 6284 
TSSEGL= 177777 6284 
TSSUBN= 000000 6284 63348 
TSTAGL= 177777 6284 
TSTAGN= 010020 6284 11024 11244 37708 37864 38114 39864 58184 S858# S885# 61704 61884 62454 
62824 63354 83394 84054 
TSTEMP= 000005 1090# 10914 11124 11304 37824 38074 38274 40114 58324 5833 58484 5865# 61424 
6143. 61584 6178 6219 6220 62354 62554 6256 62714 62924 6293 63084  6347# 
63794 6380 83044 8305 83204 83514 83614 
TSTEST= 000001 6284 63344 8440 
TSTSTM= 177777 6284 3777 3780 3783 3796 3803 3808 3817 3824 3828 = «44127 44133 4140 
4147, 4191 4217 = 4325 4334 4343 4568 864574 4580 4587 4642 4651 4935 
5018 5024 5073 50 5132 5273 5286 5363 5 5643 5801 9 
5915 5920 5926 5932 5939 5946 5955 5969 5974 5987 6020 6025 6037 
6049 6055 6074 6083 60 6097 6105 6112 6119 6132 6137 6140 6142 
6159 = 6 6203 6217 6219 6236 6272 6309 6344 63 6373 = 63 6457 
8 6491 97 6519 6533 6539 6545 6552 6 65 6613 22 
6659 77 83 6703 6749 6774 6780 6798 6817 6825 6833 
6849 6857 6865 6870 6877 6907 6916 6943 7027 7061 7083 7 
712007141 7189 = 7206 7220 72260= 7235 7271 7287) 0S 72 7 7315 7325 
735202 7373 73 7391 7406 7412 7421 7437 7443 7452 7469 7475 74 
7 7524 7582 7591 76 7618 7640 7647 7655 7663 7670 «= 76 7685 
7693 7700 7707) 7715 7723 7731 7739 7747 7755 7763 77700 77??? 777 
7789S 7811 7825 7852 7865 7883 7903 7929 7960 8 7968 7971 7981 7989 
7998 8014 050 8058 8195 8273 = 8285 8300 8304 8321 
sertesee 000001 6284 63354 
TSSAU = 010014 62824 6292 308 
TSSAUT= 010011 170# 6178 
TSSCLE= 010012 1884 6219 6235 
TS$DU = 010013 62454 6255 6271 
TSSHAR= 010016 83394 8369 
TS$HW = 010000 11024 1112 
TSSINI= 010010 8854 6142 6158 
SSMSG= 010004 37704 3782 37864 3807 38114 3827 
T$ 010007 58584 
TSSRPT= 010006 58184 5832 5848 
TS$SOF= 010017 84054 8419 
TS$SRV= 010005 9864 4011 
TS$SW = 010001 11244 1130 
TSS$TES= 010015 63354 6379 8304 8320 
T1 100274 G 090. 6334# 
UAM = 000200 G 12024 
TO = 040000 G 14544 
UCB10 050110 G 1987 1993# 4279 


CZUACAO DEUNA NI 


CZUACA. P11 


Be 
Sad 
" 


XSALWA= 
XSSALS= 


003762 G 


SOoonr 
ADGAQAAAAGAAGAAAG 


01507 


SS sa5 


ooo 

oon 

Www 
eae te 
NOMON 


000000 
000040 


rm~ror NB 
RIES ao 


213 
8 
3 
8 
ae 
9 


Seager 


mn 
NM 


oN —fononony 
=3 


EvESeseeeZSS 


UM wa PA) 
on 


AGNOSTIC 


4291 
7734 
6057 
6803 


7643 
7742 


6804 


8011 


6619 


7330 
4983* 
4536 
7303 
1847 
4244 


4559 


7650 
7750 


7490 
4984* 


7388 
1848 


4524 
4901 


17594 


G 15 


MACY11 30A(1052) 20-JUL-83_ 13: o PAGE 190 
CROSS REFERENCE TABLE == USER SYMB 


7658 
7758 


504%2* 


7425 
1849 


4546 
4933 


OLS 


7666 
7766 


5043* 


7456 
1850 


4547 
4977 


7673 
7773 


7506 


4909 
4558 
5016 


7680 
7780 


4985 
4560 
5036 


7688 


5044 


5071 


7696 


5112 


7703 


5130 


SEQ 188 


7710 


H 15 


SEQ 189 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_20-JUL-83_ 13:27 PAGE 191 
CZUACA.P11 19" JUL~83 17:13 CROSS REFERENCE TABLE == USER SYMBOLS 
XSOFFS= 000400 6284 
XSTRUE= 000020 6284 
ZEROS = 000002 G 12844 6978 
ZROALT= 000004 1286# 699% 
SCLRC 050260 G 1909 20844 = 4297 
SCLRS 050320 G 1913 21428 = 4315 
SDMEM 050330 G 1914 21584 
M 050350 G 1915. 2174M 
SPATCH 113132 G 84270 
047746 G 1898 19234 
$RDCN 050150 G 1908 20324 4288 
$RDDE 047750 G 1900 1930" 4260 
$RDMC 050000 G 1904 19594 
$RDMO 050270 G 1910 21014 4300 
$ROPH 047760 G 1902 19408 4265 
$RDRN 050100 G 1906 1986" 4275 
ST 050310 G 1912 2126" = 4310 
$RDSY 050360 G 1916 21844 
C 050040 G 1905 19718 6197* 6199* 6617"  6627* 
050300 G 1911 21134 = 4305 = 6757 
$WDPH 047770 G 1903 1949# 4270 
SWORN 050124 G 1907 20074 4284 
$u 050370 G 1917, 21938 
. = 113156 630" 1070# 1564" 1570# 15714 15824 15864 1698 18454 1847" 18484 
18494 1850# 18524 18534 18544 1855" 18564 18574 19644 19798 22718 23598 23614 
2370k 23784 23808 # 2386# 2407# 24154 24198 = 24454 24498 24 24558 2462# 
24 4758 24798 31718 32564 36574 36914 4686" 4787 5446# 5833 6143 6220 


2 2 3 
6256 6293 6380 80784 80794 80804 8305 83914 84284 


——— 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 


CZUACA.P11 = 19=JUL-83 17:13 
BCOMPL 1# = 6284 «5916 5976 
BERROR 1# = 6288 
BGNAU i#@ = 628# = 6281 
BGNAUT 1# 6284 ©6169 
BGNCLN 1# 6284 6187 
BGNDU 1# = 6284 = 6244 
BGNHRD 1# ©6284 = 8338 
BGNHW 1#@ = 628 = 1101 
BGNINI 1# = 6284 = 5884 
BGNMOD 1# = 6288 
BGNMSG 1# 6284 3769 «3785 
BGNPRO 1# ©6284 )=— 5857 
BGNPTA 1# 6284 
BGNRPT 1# = 6284 =—-5817 
BGNSEG 1# = 6284 
BGNSET 1# 6284 
BGNSFT 1# = 6284 = 8404 
BGNSRV 18 ©6284 »=—-3985 
BGNSUB Ww 62 
BGNSW 1# = 6284 = 1123 
BGNTST 1# = 6284 = 6333 
BNCOMP 1# §©628 )§=—5921 5927 
BNERRO 1# = 6284 
REAK 1# 628% 6563 6779 
BRESET 1# = 6288 


7628 76 7649 7657 
7816 7817 786i 7972 
CKLOOP 14 6284 
CLI 9094 2355 2356 2357 


CLOCK 4 6284 5944 5953 
CLOSE 14 6284 7970 
CLRVEC 14 6284 
14 6284 
DELAY 14 6284 
DESCRI 14 6284 1063 
DEVTYP 14 6284 1055 
DISPAT 14 6284 1087 
DISPLA le 6284 
DOCLN 14 6284 3779 6139 
DODU 14 6284 
DORPT 14 6284 
ENDAU 4 6284 6307 


MACY11 30A(1052) 


7961 


3810 


8052 


I 15 


20-JUL-83 13: ‘oe 7 193 
CROSS REFERENCE TABLE -=- MACRO 


SEQ 190 


CZUACAO DEUNA NI EXERCISER DIAGNOSTIC 
CZUACA.P11 19=JUL=83 17:1 


ENDAUT # 6284 6177 
ENDCLN 4 6284 6234 
ENDCOM 14 6284 
# 6284 6270 
ENDHRD # 6284 8367 
ls 6284 381111 
ENDINI # 6284 6157 
ENDMOD 4 6284 
ENDMSG # 6284 3781 3806 
ENDPRO #4 6284 5364 
ENDPTA 14 6284 
ENDRPT 4 6284 5847 
ENDSEG 4 62 
ENDSET 14 6284 
ENDSFT 14 6284 8417 
ENDSRV 4 6284 4010 
ENDSUB # 6284 
ENDSW 14 62 1129 
ENDTST 4 62 319 
EQUALS 14 6284 1142 
ERRDF # 6284 4126 4132 
4934 4940 5017 5023 
ERRHRD ie 6284 4586 6202 
7864 
ERROR #4 6284 
ERRSF le 6284 
ERRSOF 14 6284 
ERRTBL 14 6284 2511 
ESCAPE 4 6284 
EXIT l# 6284 5831 6141 
FEQUAL 14 6284 
GETBYT 14 6284 8049 
GETPRI 14 6284 
GETWOR 14 6284 
GMANIA 1a 6284 
GMANID 14 6284 6343 
IL Ve 6284 
GPHARD 14 6284 5972 
GPRMA 1% 6284 8350 8355 
GPRMD if 6284 63444 6347 
GPRML 14 6284 
HEADER 4 6284 964 
INLOOP 14 6284 
IOSETU 14 62 
IOSTAR 14 6284 
ISSTAC 6484 5937 
K 4 6284 
LASTAD if 6284 8435 
MANUAL 14 6284 
MEMORY \# 6284 5938 
MSBYTE 14 6284 9654 9 
MSCHEC lf 6284 58324 61424 
MSCNTO if 6284 63474 83514 
MSCOUN 1 6284 37734 37928 


MACY1! 30A(1052) 


3826 


6218 


8360 


6254 


J 15 


20-JUL-83 13: <r. F tens 194 
CROSS REFERENCE TABLE <== MACRO N 


6291 


6378 


8303 


83044 


52674 
61094 
66624 


52824 
63614 
66714 


4342 
7390 


53594 
63704 
66804 


4567 
7411 


66894 


4573 
7442 


4579 
7474 


5798# 
64884 
67464 


SEQ 191 


4650 
7788 


5966# 
64944 
6771# 


K 15 


SEQ 192 
CZUACAO DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83 13: i. see 195 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE -- MACRO N 
67954 68134 68214 68294 68374 68454 68534 68614 69044 69104 6940# 70244 7058 7080# 71 
7117#@ = =—71378 72134 «672324 «672674 = 7282 7295 = 7322K = 73484 = 7370K = 73764 7399K = 741 74304 
74498 7462 74818 75198 75794 75854 76124 76364 76434 76514 76594 6664 76734 76814 
76894 6 7 77118 = 7719 = 7727K 7735 7743 751K 7759 7766 77 73K# = 7780 =—7808H = 78214 
78484 78798 78998 79254 79644 7978# 79854 5# 8010 80554 81914 82694 82814 
MSDATA 14 62 9654 974 976 978 982 984 992 994 
953 0 1002 10044 1006 1008 1011 1014 1016 1018 1020 1024 1026 1028 
1030 1032 103 1040 1042 044 1046 048 10564 10644 
MSDECR as2ne after A 4 11304 37824 38074 38274 4011# 5848# 5865# 61584 61784 62354 62714 63084 
MSDEFA 14 6284 63474 83514 83614 
MSENDE axene anike 11124 11304 37824 38074 38274 40114 58484 61584 61784 62354 62714 63084 83204 
MSERRI 4 4127# §=—41334 = 41408 §=0414678 = 41918 = 4217 = 4325H 43344 =—43434 845684 «645744 = =—4580H 8645878 
46514 49354 49414 50184 50244 50734 S5079# 51324 6119% 62034 6552# 66224 68704  6877# 2 
2264 7315#@ 73918 74124 74434 74754 77894 78654 
MSESCA 4 6284 
MSESCS 14 62 
MSEXCP # 6284 63474 83514 83564 83614 
MSEXIT 14 6284 58324 61424 6143 62194 6220 62554 62924 63794 6380 83044 8305 
MSEXSE 4 6284 58324 61424 6219% 62554 62924 6379% 83044 
MSEXTJ 14 6284 58324 61424 62194 62554 56 62924 6293 63794 83044 
MSGEN 4 6284 9744 976 784 9824 9844 9864 9904 9924 a 
0 10024 # 10064 1008 10114 10144 10164 #10184 10204 10224 1024 1026# 10284 
10304 10324 10344 10364 10404 10424 10444 10464 10484 10564 10894 11034  1104# 
11124 8611254 11264 1130 25124 3770 37824 37864 38074 38114 38274 39864 40114 58184 
58854 61584 61704 61784 61884 62354 62454 62714 62824 63524 83204  8340# 
83694 84064 84194 84394 
MSGENB 6284 63444 
MSGETS 6284 11124 1130 37824 38074 38274 40114 58484 5865# 61584 61784 62354 62714 63084 
83204 83684 84184 
MSGETT a 6284 58324 6142 62194 62554 62924 6379% 83044 
MS 14 6284 97 978 9804 9824 98 9864 9884  990# 4 | 
10024 10044 1006 1008 10114 10144 10164 +1018 10204 10224 10244 10264 102 
10304 10324 10364 10384 10404 10424 1044 10 10484 105 1089 11024 
11244 125 11 25124 37704 7864 38114 58184 S5858# 58854 6170# 61 
62454 62824 83394 8340 84054 8406 84364 8439 
MSGNIN 4 6284 9654 966 967 968 969 970 9714 9728 9734 869748 975 976# 977 
9784 8=6979 9804 981 9824 983 9844 985 9864 987 9884 989 9904 991 9924 
3 9944 995 997 9984 999 10004 1001 10024 1003 10044 1005 10064 1007 
10084 1 1010 10114 1012 10134 10144 1015 1016# 1017 10184 1019 1020# 1021 10224 
1023 10244 1025 10264 1027 10284 1029 10304 1031 10324 1033 10344 1035 10364 1037 
0384 1039 10404 1041 10424 1043 10444 1045 10464 1047 10484 1049 10564 1057 1058 
# 1065 108 10904 11024 11244 3773 37748 3775# 3776 3777# =§=63778 37804 37834 
37924 8637934 = 37944 3795 37964 3797 37994 3800# 38014 3802 38034 3804 38084 381354 38144 
38154 3816 38174 3818 38204 38214 38224 3823 38244 3825 38284 40114 41274 41284 
4129% 41304 41344 41354 1364 41408 41414 4142# 41434 147# = 414 41498 41504 41914 
41924 41934 41948 4217# 421 4219# 4220H 4325 43264 43274 43288 4334 4335¢@ 43364 43374 
4 43448 43454 43464 45684 45694 4570# 45718 45748 4575 4576 4577 45804 45818 45824 
45834 45874 45894 45904 46398 46408 46:1 46424 4643 4651 46524 465 46544 4935# 
49 4937# 49384 49414 49424 49434 494644 5018 5019 5020 5021# 5024# 5025# 5026#  5027# 
50734 5074 50754 50764 5079# 5080# 50814 S082# 51324 51334 513544 513554 52674 52694 
5270# 52714 52734 52824 5283# 52844 5285 52864 5287 53594 5360 53614 5362 
55964 55974 5598 5994 56404 56414 5642 56434 57984 57998 
58014 58324 58334 5849 59144 5915# 59174 59198 5920 59224 59254 59264 5928 59314 
5932# 59344 5939% 59404 59454 5946 5947 5949% 59544 5955# 595 59584  5966#  5967# 





L 15 


SEQ 193 
CZUACAO_DEUNA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83_ 13: He * fees 196 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE -- MACRO NAM 
59694 5970 59734 59748 5975# 5977# S5983# 5984# 5985# 59864 5987# 5988 60164 60174 60184 
6019# 60204 6021 60244 60254 60334 60344 60354 6036 60374 6038 60454 60464 60474 6048 
6 050 60524 60534 60554 056 60714 60724 60744 75 60804 60814 6082 
60 0874 60884 6089 60904 6091 60944 60954 6096 60974 60 61024 6 
61054 6 61094 61104 6111 61124 13 6119% 61208 61214 61224 61284 61294 613504 61314 
61324 6133 61364 61374 61404 42H =661434 6159 61794 62034 62044 62054 62 62174 
6219% 62208 62554 62564 62724 62924 2934 6309% 63444 63454 63464 7# = =6348 6 
6350 351 63614 63624 63644 6365 63704 63714 63734 6374 63794 63804 64544 
6456 64574 64784 64794 6480 64814 6482 64894 & 64914 92 ¥ 
64954 64 64974 6498 65144 65154 651 65174 6518 65194 65304 65314 6 
65 65374 6538 65394 6540 65424 65434 6544 65454 6 65524 65544 65554 
65644 65954 6 65974 6599. 6600 66084 66094 66104 66114 66224 
66234 66244 66254 66434 66444 66464 647 66554 66574 6658 66594 
66624 6 66 66654 66714 66724 66734 66744 66754 6676 66774 6678 6680% 66814 
6682 66834 66894 66904 66914 66924 6693 66944 6695 66994 67004 67014 702 67034 
6 67464 67474 6748 67494 750 67714 67724 6773 67744 6775 67804 67954 67964 6797 
67984 7 68134 68144 68154 68 68174 6818 68214 68224 68234 68254 26 68294 
68304 68314 68334 68374 683 68394 6840 68414 68454 6847# 6848 
68534 68544 68554 68574 6858 68614 68624 68634 68654 68704 
68714 68724 68734 68774 68784 6879# 68804 69044 69054 69074 910# 69118 69124 
69134 69144 6915 9164 6917 69404 69414 6942 69434 6944 70244 70254 7026 70274 
70584 7059# 7060 70614 7062 70804 70814 7082 70 71074 
71174 =671184 71204 71374 = =671384 = =7139% 86714 71414 71874 67 71894 
7 2 72074 7208 7209 72134 72144 72154 7216H 7217 7218# 7219 72204 7221 72264 
7227# = =6—72284 §=—7229% = 7232H =— 72334 72354 72 72674 72684 7269% 7270 72714 72824 
72834 72854 286 72874 288 72954 72964 72974 7298 7300 73074 8 73 
73094 8 7315# 73164 73174 73184 7322 7323# 7324 73254 7326 73484 73494 7350# 73524 
7353 7370# 73714 73734 4 73764 8673778 73794 73914 73924 73934 73948 
3 4008 7401% 74024 74034 74044 7405 74064 74124 874138 74148 74154 
7420 74218 & 74304 74314 74328 74334 7434 74354 86743 74378 74448 = =74454 
74468 = 7449% 74508 7452m 74624 74634 74654 4 74674 = 74 74698 
7475#@ «674768 = =—7477H = 74784 = 74818 = =—7482K 7483 74844 85 7500# 75198 7520 7521# 75224 7523 
75244 7579% «75804 7581 75824 3 75854 75864 75874 75894 75918 
6 76074 6094 7610 76124 76134 76144 76154 76164 76184 7619 76 76374 
6 7640# 76434 76444 76454 7646 76474 76514 7652 76534 7654 
7 76594 76604 76614 76634 7664 76664 76674 76684 76704 6 76734 76748 
7675#@ 7676 76774 8 76814 76824 76834 7684 76854 686 76894 76 76914 
6 76 76974 76984 7700# 7701 77034 77044 77054 77074 77114 
77134 77154 7719# =77204 77214 722 77234 77278 77298 77314 
7732 77354 77374 77398 40 77434 = 77448 = =—77454 7747H#@ = 7748 77514 77524 
77534 77554 77594 77604 77614 7762 77634 77664 77674 77684 77704 
7771 77734 = =67774H = 77754 7777#@ = 7778 77804 77814 77824 7783 # 7785 77894 = 77’ 
77914 77928 78094 78114 7812 78214 78224 78234 78254 7826 7 78494 
78524 78654 78674 78684 7879% 78804 78814 78834 78994 
79014 79034 79254 7926# 7927# 7928 79294 7959% 7960  7962# 
79654 79664 7967 79684 7969 79714 7978 79798 7980 79814 7982 79854 79 7987# 8679 
79894 8679 79954 7996# 7997 84 99 80104 80114 80124 80 80144 80 80 80514 
80534 80554 80564 80584 8059 81914 81924 81934 81954 8269% 8270 82714 
8272 82734 8274 82814 82824 82834 8284 82854 82964 82974 82984 83 
83044 83054 83214  8339H 83514 52 8354 83564 83614 8362 8363 
83 65 83684 84054 84184 84364 84374 84384 
MSGNLS 1 6284 63444 352 
MSGNSU Ve 6284 
MSGNTA le 6284 11124 11304 37824 38074 38274 40114 5848 61584 6178 62354 62714 6308# 83204 
83684 8369 8418# 8419 


MSGNTE 4 6284 63344 


eh SEQ 194 


CZUACAO DEUWA NI EXERCISER DIAGNOSTIC MACY11 30A(1052)_ 20-JUL-83 13: ioe - 197 
CZUACA.P11 19=JUL=83 17:13 CROSS REFERENCE TABLE -- MACRO NAM 
a a re 
MSINCR 1# (6284 11024 11248 37704 37774 37804 37834 37864 37964 38034 38084 38114 38174 38244 
38284 39864 1278 =4133@ = =41408 =4147H 41918 = 42178 43258 43344 43454 4568H  4574K = 4580K = 45874 
46428 46514 49354 49414 5018# 50244 50734 51324 52734 52864 7634 = =—3599 56434 58014 
581 58494 5 58854 5915# 59°90 59264 59324 59394 464 5955H# S5909K 59744 59874 O# 
60254 60374 60554 60744 60834 60904 60974 61054 61124 61194 6132 61374 61404 61424 
61594 61704 61798 61054 62174 62194 62454 62724 62824 63344 63354 63444 
63794 64574 64814 64914 64974 65198 65334 65394 65454 65524 659°% 
66134 66224 66594 66654 66774 66834 66944 O34 67494 67744 67804 68174 68254 
68334 # 684698 68574 68654 68704 68774 69074 6916 69434 70274 0834 71094 71208 
71414 71894 7220# 72264 72354 72718 72874 72998 73064 73154 73254 73524 7 73794 
73918 7406 7412 74218 74374 74434 74524 74698 7475H# 74844 75244 75824 7591% 76094 
1 76404 76474 76554 76634 76704 76774 76854 76934 7700# 7707# 7715# 77234 77314 77398 
7747#@ = =67755#@ = 77634 = 77708 = 777777844 7789R = 781i =6—7825H4@ = 78524 = 7865H# = 78834 79298 867 
reese 79718 79818 79894 79984 80144 8050# 80584 81954 82734 82854 8300 83044 83214 83394 
MSIOSE is 6284 
incr 4 osm 59144 5919% 59254 59314 59454 59544 5973# 60244 6136 62164 79594 
MSMCHI 14 6284 
MSMCLO 14 6284 
MSMSK1 i# 6284 
MSPOP axe attee irae 1130 37824 38074 38274 40114 58484 58654 61584 6178# 62354 62714 63084 
MSPRIN 6284 37734 37924 7994 38134 38204 46394 52674 5282 5359% 55964 57984  5966# 
60334 60454 60524 60714 60804 60874 60944 61024 6109 63614 63704 64544 64784 8 
65144 6530% 6536 65424 65954 66084 66424 66554 66624 66714 66804 66894 66994 67464 67714 
6795# 68135# 68214 68294 68374 68454 68534 68614 69044 6910 69404 70244 70584 70 4 
71174 = 71374 72134 = 72324 72674 7282 72954 7322 73484 73708 7399% 8=67418% 74 
74498 7462 74814 7519% 7579% 75854 76064 76124 76514  7659# 76734 76814 
7689# 76 77114 «8677198 =—7727H# = 7735 77435K 7751 = 77598 77734 78084 78214 
78484 7879% 78998 7925# 79644 79784 79854 79954 8010# 80554 81914 82694 82814 82964 
MSPUSH 1# 6284 11024 11244 37704 37864 38114 3986 58184 58584 58854 6170# 61884 62454 62824 
63344 6335 83594 84054 
MSPUT e 66 37734 §=63792H = =6—3799H §=—38134 86938204 8946394 52674 S2824 5359% 55964 57984 
59834 60164 60334 60454 60524 60714 6080 60874 60944 61024 6109# 612 63614 6370% 64544 
784 = 64884 = 64948 §=965144 8965304 65424 65954 66084 66424 66554 66624 
66994 67714 68134 68214 68294 68374 68454 68534 68614 # 69108 6 70244 
70584 70804 71174 = 7137 = 71864 = 72134 = 7232H# = 7267 = 2BOH 295K 322K = 73484 = 737) 
7399 74184 74308 7449 7462 74814 7519% 7579% 75854 76064 76124 76364 7643 76514 76594 
76 7673# 76814 7689 76964 7703 77114 77198 7727H 77354 77434 77514 77598 
ate He «94 78214 78484 78798 7899% 79254 79644 7978 79854 7995# 80104 80554 8191#  8269# 
MSPUT1 1# 6284 37734 3774 3775 37924 ©3793 3794 37994 3800 3801 3813# 3814 3815 38204 
3821 38220 4639H 4640 5267# 5268 5269, 5270 5271 S282# 5283 5284 53594 5360 5361 
55964 5597 56404 5641 57984 5799 59664 5967 59834 5985 60164 6 6018 
6019 60334 6035 60454 6046 047 60524 6053 60714 60804 6081 60874 60 
60944 6 61024 61094 110 61284 129 6130 63614 6370# 64544 
64784 64884 64944 495 65144 6515 65304 6531 65 6537 
6542# 65435 65954 6597 66084 6609 610 6613 66424 6643 66554 6656 657 
66624 66714 6672 6673 74 6675 66804 6681 66894 6691 6692 # 6700 
6701 67464 674 67714 77? 67954 6796 68134 6814 68214 6822 6825 68294 6830 


683 68 6 6846 855 686 904 
69104 6911 6912 6913 6914 6940# 6941 70244 7025 70584 7059 70804 7081 7106# 7107 
7117# = =7118 7137# =©7138 7139 71864 7187 72134 7214 7215 7216 7217 7218 72324 867233 


CZUACAO DEUNA NI EXERCIS 
CZUACA.P11 8 


MSSTAR 
MSSVC 


M$TLAB 


MS$TSTL 


MACY11_ 30A(1052) 
CROSS REFERENCE TABLE == MACRO N 


13: ine — 198 


73484 
74304 





CZUACAO DEUNA NI EXERCISE 


CZUACA.P11 


OPEN 
POINTE 
POP 
PRINTB 
PRINTF 


PRINTS 
PRINTX 
PUSH 
P$POP 


P$PUSH 


READBU 
READEF 


19=JUL=83 1 


R DIAGNOSTIC 
17:13 
5969"  S974e 
6132 61374 
65794 64578 
66594 66654 
68574 68654 
72208 72268 
74218 74378 
76558 766 
77708 = 77778 
79898  7998# 
10044 1013 
41434147" 
4327 4328 
4575. 4576 
5935" 4936 
027 5073" 
6120 6121 
6552# 6553 
6880  7206# 
73177318 
7476 ©7477 
8437 8438 
17711777 
2357-2358 
2372 «©2373 
2387 © 2388 
2409 2410 
2427 2428 
2448 2449 
2463 2464 
2481 2482 
7958 
961 
5646 5706 
659 7212 
4638 5358 
6670 6679 
6909 6939 
7611 7635 
7742-750 
7994 8009 
6032 6044 
3772-3791 
5687 
4322 4331 
5208 5254 
6510 6549 
6936 7100 
7472 7504 
8247 
6547 6637 
5913 5918 


59874 


MACY11_30A(1052) 
CROSS REFERENCE TABLE -- 


B 16 


pee tf mi oe — 199 


C 16 


AGNOSTIC MACY11 30A(1052) 20-JUL-83_ 13: a _— 200 


CZUACAO DEUNA NI ere ie 
1 CROSS REFERENCE TABLE -- MACRO 


CZUACA.P11 19=JUL=83 
RETURN 


tem 


4496 4592 4655 4702 4761 4820 4866 
5423 7246 7259 = 7332 7492 7547 = 7569 


RFLAGS 
1788 1794 1807 1813 1819 1825 1831 


Un— ccoumnse ed 


won NOR 
Crmn Wwrouvl pn 
NWO —WwN Ww 


w 
co 
w 
~m 
Ae 


6142 62194 62554 62924 63798 8304# 


- ABS. 113156 


ERRORS DETECTED: 0 
CZUACA. BIN, CZUACA. SEQ/CRF/SOL/NL: TOC=SVC34R.MLB, CZUACA.P11 
RUN-TIME: 35 42 4 SECONDS 


RUN-TIME RATIO: 132/82=1.5 
CORE USED: 21K (41 PAGES) 


4945 
8016 


1837 


5028 
8076 


SEQ 197 





